В приведенном тексте программы имеются лишние переменные. Определите результат выполнения данной программы:

var a, b, c, d, t, x, y, m, m1, m2, m3: real;

procedure z2(aa, bb: real; var mm: real);

begin if aa>bb then mm:=aa else mm:=bb; end;

begin

write (' введидите a, b, c, d, t, x, y через пробел');

readln (a, b, c, d, t, x, y);

z2(a, b, m1);

z2(c, d, m2);

z2(x, y, m3);

z2(m1, m2, m);

writeln(m);

end.