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

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