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

Question

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

Answer 1

Var A,B,C:integer;
Begin
ReadLn(A,B,C);
if Aif AWrite(A)
End.

Answer 2

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