program predavani_parametru3;
{ Co vypise tento program? }
var a : integer;
procedure foo( var a : integer );
var i:integer;
begin
for i:=1 to 10 do
a := a+1;
writeln(a);
end;
begin
a := 0;
foo(a);
writeln(a);
end.
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ů). ;)