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