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<c then max:=c;
     writeln(max);
end.