{1.} function z(x:integer)

{2.} var y:integer;
{3.} begin
{4.} y:=1;
{5.} for i:=1 to x {powinno być:for i:=1 to x do , tylko tutaj znalazłem}
{6.} y:=y*i;
{7.} if y mod 3=0 then z:= true;
{8.} else z:=false;
{9.} edn; {z}
2. Ponizej znajduje sie kod pewnej procedury w Pascalu. Popraw błedy. (wsk: jest ich 5 i nie więcej niż jeden w linii) Uwaga: Wszystkie zmienne wystepujace w procedurze maja byc zmiennymi lokalnymi.
{1.} procedure x(y:integer):integer;
{2.} var z:integer;
{3.} bgein
{4.} z:=1;
{5.} for j=y downto 1 do
{6.} z:=z*j;
{7.} writeln(’Procedura x, zmienna z:’z)

{8.} end; {x}