8.3.. Izračunati proizvod parnih prirodnih brojeva od 1 do 5.

Listing programa:

PROGRAM p08312061;
USES
  WINCRT;
VAR
  I:INTEGER;  
  P: REAL;
BEGIN
  Writeln('Proizvod parnih od 1 do 5');
  P:=1;
  
  I:=1;
  REPEAT
      IF I MOD 2=0 THEN
        P:=P*I	
      i := i + 1;
  UNTIL i > 5;
  
  Writeln('Proizvod parnih od 1 do 5',P:2:4);
END.

Ispis na ekranu:

Index