Помогите срочно даю все балы
Определи, что выполняет данная программа и что будет выведено на экран, если пользователь последовательно введет числа 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.