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

Предыдущий
вопрос Следующий
вопрос

program MaxNumber;
var
a, b, c, max: integer;
begin
write('Введите первое число: ');
readln(a);
write('Введите второе число: ');
readln(b);
write('Введите третье число: ');
readln(c);
if (a >= b) and (a >= c) then
max := a
else if (b >= a) and (b >= c) then
max := b
else
max := c;
writeln('Наибольшее число: ', max);
end.

Программа позволяет ввести три числа и определяет наибольшее из них, выводя его на экран.