Задача для Паскаля: с клавиатуры вводятся три числа. Определите максимальное из них.

Question

Задача для Паскаля: с клавиатуры вводятся три числа. Определите максимальное из них.

Answer 1

Uses crt;
var a,b,c,max: integer;
begin
     read(a,b,c);
     writeln;
     if a>b then max:=a
        else max:=b;
     if max     writeln(max);
end.