Составьте программку нахождения наибольшего из 4 чисел a,b,c,d Пример ввода:2 5

Program naibolwee;
var a,b,c,d,max1,max2:real;
begin 
 Readln(a,b,c,d);
 if agt;b then max1:=a else max1:=b; 
 if cgt;d then max2:=c else max2:=d; 
 if max1gt;max2 then Writeln('Наивеличайшее число=',max1) else Writeln('Наибольшее  число равно=',max2) 
end.