Написать программу в паскале » даны три числа, вывести большее из них»

Вопрос школьника по предмету Информатика

Написать программу в паскале » даны три числа, вывести большее из них»

Ответ учителя по предмету Информатика

Var a, b, c:integer;

Begin

Writeln(‘vvedite chisla’);

Readln(a,b,c);

If (a>b) and (a>c) then writeln(a);

If (b>a) and (b>c) then writeln(b);

If (c>a) and (c>b) then writeln(c);

End.