напишите програму поиска максимального из двух чисел

program ufhg;uses crt;var a,b,c,d, m: integer;begin readln(a,b,c,d);m:=a;if(b>m) then m:=b;if(c>m) then m:=c;if(d>m) then m:=d;writeln(m);end.