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

Пример ввода:

2 5 7 1

Пример вывода:

Большее из чисел равно 7

Program naibolwee;

var a, b, c, d, max1, max2:real;

begin

Readln (a, b, c, d) ;

if a>b then max1:=a else max1:=b;

if c>d then max2:=c else max2:=d;

if max1>max2 then Writeln ('Наибольшее число=', max1) else Writeln ('Наибольшее число равно=', max2)

end.