program testik1;
var x,y:integer;
procedure zmena(a:integer; var b:integer);
begin
a:=a+b+1;
b:=a+b+2;
end;
begin
x:=1;
y:=1;
zmena(x,y);
write(x,' ',y);
end.
{ Co program vypíše?
a) 1 4
b) 3 6
c) 1 6
d) 3 4
e) 1 1
f) něco jiného (napište co) }
Kdo byste našel v nějakém z těchto programů chybu, dejte mi to vědět - můžete tak získat bonusové body (1 chyba ≈ 5 bodů). ;)