8.3.. Suma neparnih prirodnih brojeva od 1 do 5.

Listing programa: Provjera djeljivosti sa 5 se izvodi logičkim izrazom I MOD 2 <> 0 u naredbi IF unutar WHILE petlje.

PROGRAM p08312021;
USES 
   WINCRT
VAR 
  S,I:INTEGER;
BEGIN
  WRITELN('Suma neparnih brojeva od 1 do 5');

  I := 1;
  REPEAT
    IF I MOD 2 <> 0 THEN
	  S := S + I;
    I := I + 1;
  UNTIL I > 5;

  WRITELN ('Suma neparnih brojeva od 1 do 5 je ', S);
END.

Ispis na ekranu:

Index