Verified answer

procedure pr_max(a,b,c:integer; var max:integer);

begin

if a>b then max:=a else max:=b;

if c>max then max:=c;

end;

var m:integer;

begin

pr_max(15,47,24,m);

writeln(m);

end.

Результат:

47