Задача 7 Урок 9

Задача 7 Урок 9:

Пользователь вводит четыре числа, найдите из них максимальное.

var a, b, c, d: real;
begin
 writeln('Введите число a: ');
 readln(a);
 writeln('Введите число b: ');
 readln(b);
 writeln('Введите число c: ');
 readln(c);
 writeln('Введите число d: ');
 readln(d);
 if (a > b) and (a > c) and (a > d) then writeln('Число a максимальное');
 if (b > a) and (b > c) and (b > d) then writeln('Число b максимальное');
 if (c > a) and (c > b) and (c > d) then writeln('Число c максимальное');
 if (d > a) and (d > b) and (d > c) then writeln('Число d максимальное');
 readln();
end.