Помогите решить задачу по ИВТ на языке паскаль. Задано 3 числа ...

Вера

var

a1, a2, a3, max: integer;

     begin write ('Введите три числа: ');

   readln (a1, a2, a3);  

if a1 >= a2

then max := a1

else max := a2;

  if a3 > max

then max := a3;  

writeln ('Наибольшее из них: ', max);  

readln

end.