Alege raspunsul corect:
Se da urmatorul program:
program Pr_1;
var a,b:integer;
procedure produs(c:integer;var d:integer);
begin
c:=sqr(c); d:=d*c;
end;
begin
a:=2;b:=1;produs(a,b);
write(a,b);
produs(a,b);
write(b,a);
end.

Programul va afisa:
1)44644
2)24216
3)24162
4)nici un raspuns nu este corect

Se da urmatorul program:
program Pr_2;
var a,b:integer;
procedure suma;
var a:Integer;
begin
a:=a+b;
end;
begin
a:=1;
b:=2;
suma;
write(a);
write(b);
end.

Programul va afisa:
1)3
2
2)1
2
3)nici un rezultat nu este corect
4)programul are erori.