8.1.. Izračunati sumu prirodnih brojeva u intervalu od k do n koji su parni.

Listing programa:

PROGRAM P08112027;
VAR                        { deklarisanje promjenljivih }
  I, S, K, N : INTEGER;    { cjelobrojne promjenljive }
BEGIN
  Writeln('Suma parnih od k do n');
  Write('Od broja ');
  Readln(K);;
  Write('Do broja ');
  Readln(n);
  S := 0;   { pocetna vrijednost sume }
  
  FOR I:= K TO N DO       { ponavljaj za i=k do n - pocetak for petlje }
    IF I MOD 2 = 0 THEN   { ako je i djeljivo sa 2 - parno tada izvedi }
	  S := S + I;         { suma s postaje stara vrijednost sume uvecana za vrijednost i }	
	  
  Writeln('Suma parnih od k do n = ', S);
  READLN;
END.

Ispis na ekranu:

Index