Определи, что выполняет данная программа и что будет выведено на экран, если пользователь последовательно введет числа 3, 9, 7?
Program n_1;

Var a, b, c, max: integer;

Begin

Write ('Введи a:');

Readln (a);

Write ('Введи b:');

readln(b);

Write('Введи c:');

Readln(c);

If (a>b) and (a>c) then max:=a;

If (b>a) and (b>c) then max:=b;

If (c>a) and (c>b) then max:=c;

Writeln('max=', max);

end.