Пожалуйста посчитайте с Pascal, 10 класс.Найти максимальное число, среди четырёх. Задачу решить с помощью оператора IF. Числа вводятся с клавиатуры. Отдельную переменную для поиска максимального НЕ ВВОДИТЬ!

var a,b,c,d: integer;
begin
readln(a,b,c,d);
if (a>=b)and(a>=c)and(a>=d)
 then writeln('max = ',a)
 else if (b>=c)and(b>=d)
  then writeln('max = ',b)
  else if (c>=d) then writeln('max = ',c)
   else writeln('max = ',d);
end.

Пример:
2 8 3 7
max = 8