Procedure and function

Что будeт выведено после выполнения прграммы:

Program P;

Var A,B,C: integer;

Procedure SUM (x,y:integer;Var z: integer);

Begin

   z:=(x+y)*x

End;

Begin

    a:= 3;

     b:=2;

     sum(a,b+1,c);

     a:=c+a;

      b:=c-b;

     sum(a div 3, b div 4,c);

     write(c);

end.

Что будeт выведено после выполнения программы:

Program P;

Var A,B,C: integer;

Procedure SUM (x,y:integer;Var z: integer);

Begin

   z:=(x+y)*x

End;

Begin

    a:= 3;

     b:=2;

     sum(a,b-1,c);

     a:=c+a;

      b:=c-b;

     sum(a div 3, b div 4,c);

     write(c);

end.

При каком описании формальных параметров
программа напечатает 2   2 ?

Program ONE; Var a,b: integer;

Procedure Three (   );

Begin  X:=x+5;

End;

Procedure TWO (              );

Begin

x:=x*2;y:=y+l; Three( x)

end;

begin a:=l; b:=2;TWO(a,b);THREE(a);

writeln(a,'    ',b) end.

При каком описании формальных параметров
программа напечатает 6   2 ?

Program ONE; Var a,b: integer;

Procedure Three (   );

Begin  X:=x+5;

End;

Procedure TWO (              );

Begin

x:=x*2;y:=y+l; Three( x)

end;

begin a:=l; b:=2;TWO(a,b);THREE(a);

writeln(a,'    ',b) end.

Что будет выведено на экран ? Запишите ответ в одну строку без пробелов

Program М;

var a,b, c:integer;

Procedure N (var x,y: integer; z: integer);
begin
  x:=x+z;
  z:=y;
  write(x:3,y:3,z:3)
end;
Procedure P (x: integer; var y,z: integer);
begin
  x:=2;
  z:=x+y;
  y:=x+z;
  write(x:3, y:3, z:3)
end;
begin
  a:=2;
  b:=4;
  c:=3;
  N (c, b, a);
  write(a:3,b:3,c:3);
  P(a,b,c);
  write(a:3,b:3,c:3)
end.

Что будет выведено на экран в результате выполнения программы ? Запишите ответ в одну строку без пробелов

Program my;  Var x,y,a: integer;

Procedure he (var m, n:integer);

Var a: integer;

begin a:=m*n; m:=n+1; write(a:4,x:4)

end;

Procedure she (a,b: integer);

var x : integer;

 begin  x:=a+b; he(x,a); write (x :4, a:4) end:

begin x:=3; y:=4; a:=5; he(x,a); write(y:4, a:4);

 she (y,a); write(x :4, a:4)

end.