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

В 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.