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

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.