Question

Найти max (a,b) через pascal
Помогите решить!

Answer 1

Var
   a,b:integer;
Begin
Write('Введите два целых числа: ');ReadLn(a,b);
if a > b then WriteLn('Max = ',a)
else WriteLn('Max = ',b)
End.