Var Longint najwieksza Real Begin ReadLn abs a-b abs c-d abs e-f abs g

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
Var
a, b, c, d, e, f, g, h : Longint;
x, y, z, v, najwieksza : Real;
Begin
ReadLn(a, b, c, d, e, f, g, h);
x:= ((a+b)+(abs(a-b)))/2;
y:= ((c+d)+(abs(c-d)))/2;
z:= ((e+f)+(abs(e-f)))/2;
v:= ((g+h)+(abs(g-h)))/2;
x:= ((x+y)+(abs(x-y)))/2;
z:= ((z+v)+(abs(z-v)))/2;
najwieksza:= ((x+z)+(abs(x-z)))/2;
WriteLn(najwieksza:0:0);
End.