Написать программу которая выводит на экран максимальное из трех целых чисел.

Program MAXIN;
var
     A:integer;
     max:integer;
     i:integer;
begin
max:=0;
for i:=1 to 3 do begin
      writeln('Введите ваше число');
      readln(A);
If A>max then max:=A; end;
writeln('Максимальное число=', max:2);
End.