Найдите наибольшее из четырех введенных с клавиатуры чисел.

В Pascal

vara, b, c, z, x, g : real; beginreadln (a, b, c, z); g:=a+b; x:=z+c; if g>=x then begin if a >=b then writeln (a) else writeln (b); end; else begin if z>=c then writeln (z) else writeln (c) end; end.