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

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.