С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