Урок 14.1 Задание 2

Задание 1 Урок 14.2

Напишите процедуру, которая получает на вход два целых числа и выводит на экран то, которое больше.

program Hello;
var a,b: integer;
procedure pishi(a,b: integer);
begin
  if a>b then
    writeln(a)
  else
    writeln(b);
end;
 
begin  
  writeln ('Vvedite cheloe chislo');
  readln (a);
  writeln ('Vvedite cheloe chislo');
  readln (b);
  pishi(a,b);
end.

Консоль:

Vvedite cheloe chislo
5
Vvedite cheloe chislo
8
8