Найти максимум из трех целых чисел паскалем.

Var A,B,C:integer;
Begin
ReadLn(A,B,C);
if A<B then A:=B;
if A<C then A:=C;
Write(A)
End.

Program beta;
var a,b,c,f:integer;
begin
writeln ('Введите три числа');
readln (a,b,c);
f:=a+b+c
writeln (f)
end.