Question

Составить программу Паскаль, которая получает наход 2 числа и выводит максимальное из них

Answer 1

var a,b: integer;

begin

read(a,b);

if a > b then write (a)

else write (b)

end.

Или (если учитывать возможное равенство чисел)

var a,b: integer;

begin

read(a,b);

if a = b then write ('a = b')

else if a > b then write (a)

else write (b)

end.