PROGRAM PROGRAM11; USES WinCrt; VAR i, n: Integer; BEGIN Writeln('Djeljivi sa 5 od 1 do n'); Write('Do broj '); Readln(n); i := 1; REPEAT IF i MOD 5 = 0 THEN Writeln(i); i := i + 1; UNTIL i > n; END.