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

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.

var s1, s2: string;

begin writeln('введите строку'); readln(s1); writeln('введите слово'); readln(s2); writeln('позиция слова в строке'); writeln(pos(s2, s1)); end.