Ответ:

program z1;

var a,b,c,m:integer;

procedure m2 (x,y:integer; var z:integer);

begin

if x>y then z:=x

else z:=y

end;

begin

write('a = ');

read(a);

write('b = ');

read(b);

write('c = ');

read(c);

m2(a,b,m);

m2(m,c,m);

write('m = ',m)

end.

Объяснение:

Вводим 3 числа

Используем процедуру (для первого и второго числа, большее записываем в переменную m)

Используем процедуру (для переменной m и третьего числа, большее записываем в переменную m)

Выводим большее число