8.3.. Izračunati sumu parnih prirodnih brojeva u intervalu od k do n.

Listing programa:

PROGRAM p08312009;
USES
  WinCrt;
VAR
  i, k, n, s: Integer;
BEGIN
  REPEAT
  Write('Granice');
    Readln(k, n);
  UNTIL k<n;
  s := 0;
  
  i := k;
  REPEAT
    IF i MOD 2=0 THEN
      s := s + i;
    i := i + 1;
  UNTIL i > n;
  
  Writeln('Suma parnih brojeva od ', k , ' do ', n, ' je ', s);
END.

Ispis na ekranu:

Index