№292. максимум из двух чисел входные данные даны два целых числа, каждое число записано в отдельной строке. выходные данные выведите наибольшее из данных чисел. примеры входные данные 1 2 2 #паскаль и процедурой

Var
  a, b: integer;

 procedure Max(a, b: integer);
 begin
  if(a > b) then write(a)
  else write(b);
end;
 begin
  read(a, b);
  Max(a, b);
end.