Ответы и объяснения

2014-04-04T01:10:06+04:00
Var a,b,c,d,e,f:real;
begin 
readln(a,b,c,d);
if (a>b and a>c and a>d) then writeln(a);
if (b>a and b>c and b>d) then writeln(b);
if (c>a and c>b and a>d) then writeln(c);
if (d>b and d>a and d>c) then writeln(d);
end.

попробуй таким образом. не проверял может сработает