8.3.. Izračunati proizvod brojeva od 1 do n koji nisu djeljivi sa 7.

Listing programa:

PROGRAM p08312146;
USES
  WINCRT;
VAR
  I,P,N: REAL;
BEGIN
  WRITELN('1 DO N');
  WRITELN('UNESI N ' );
  READLN(N);
  P:=1;
  I:=1;
  REPEAT
      IF I MOD 7<>0 THEN
        P:=P*I	
      i := i + 1;
  UNTIL i >N;
  WRITELN ('P=',P:2:4);
END.

Ispis na ekranu:

Index