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

Uses crt;
var a,b,c,d:integer;
begin
writeln('Введи числа:');
read(a,b,c,d);
writeln; write('Наибольшее из введенных чисел: ');
if a<b then a:=b;
if c<d then c:=d;
if a>c then write(a) else write(c);
end.