Napisati program sa procedurom za prebrojavanje brojeva od k do n djelijivih sa l (koristiti WHILE).

Listing programa:

PROGRAM Brojac;
VAR
  k, n, l, br: Integer;

PROCEDURE br_l;
VAR
  i : Integer;
BEGIN
  br := 0;
  i := k;
  WHILE i <= n DO
    BEGIN
      IF i MOD l = 0 THEN
        br := br + 1;
      i := i + 1;
    END;
END;

BEGIN       {MAIN}
  Writeln ('Prebrojati djeljive sa l  ');
  Write('k n l ');
  Readln(k, n, l);
  br_l;   {  poziv procedure }
  writeln('Prebrojati djeljive sa l  =  ', br );
  READLN;
END.

Ispis na ekranu:
Prebrojati djeljive sa l
k n l 1 9 3
Prebrojati djeljive sa l  =  3

Index