Задача 2 Урок 14.1

Задача 2 Урок 14.1:

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

program u141z2;
var a, b: integer;
procedure bolshe(c, d: integer);
begin
  write('bolshe: ');
  if c > d then
    write(c)
  else
    write(d)
end;
begin
  writeln('Vvedite 2 chisla ');
  readln (a, b);
  bolshe(a, b);
  readln ();
end.