gitweb on Svarog
projekti pod git sistemom za održavanje verzija -- projects under the git version control system \r
PROCEDURE Unos;\r
VAR\r
- i: CARDINAL;\r
+ i: INTEGER;\r
BEGIN\r
WrStr('Unesite N: ');\r
n:= RdInt();\r
\r
PROCEDURE Resi;\r
VAR\r
- i, j, Pom: CARDINAL;\r
+ i: INTEGER;\r
BEGIN\r
b[0]:= 0;\r
IF a[1] > 0 THEN\r
END;\r
END Resi;\r
\r
- PROCEDURE Ispis(n: CARDINAL);\r
+ PROCEDURE Ispis(n: INTEGER);\r
BEGIN\r
IF n > 0 THEN\r
IF b[n] = b[n - 1] THEN\r