2. Написать процедуру, которая находит из двух целых чисел наиболь-шее число. (язык Pascal)

program raf105;

var x,y,z:integer;

procedure max1 (a,b:integer);

begin

 if a>b

   then z:=a

   else z:=b;

end;

begin

write('Введите 2 числа через пробел: ');

readln(x,y);

max1(x,y);

writeln('Большее число: ',z);

end.

Язык PascalABC