var

a, b, c, d, m1, m2, max : integer;

ulaz, izlaz : Text;

begin

Assign(ulaz, ‘zad2.in’);

Assign(izlaz, ‘zad2.out’);

Reset(ulaz);

Rewrite(izlaz);

Read(ulaz, a, b, c, d);

m1 := (a + b + abs(a – b)) div 2;

m2 := (c + d + abs(c – d)) div 2;

max := (m1 + m2 + abs(m1 + m2)) div 2;

WriteLn(izlaz, ‘Maksimalni od cetiri uneta broja je : ‘, max);

Close(ulaz);

Close(izlaz);

end.