23010020.. Učitati 2 cijela broja i izračunati im zbir, razliku, proizvod i količnik. Ispisati one rezultate koji su trocifreni.

Listing programa:

PROGRAM p23010020;
VAR                              { deklarisanje promjenljivih }
  a, b : INTEGER;    { cjelobrojne promjenljive }
  s, r, p, k : REAL;             { realsne promjenljive }
BEGIN
  WRITE('1. broj ');        { ulazne promjenljive }
  READLN(a);                { ulaz - ucitavanje promjenljive }
 
  WRITE('2. broj ');        { ulazne promjenljive }
  READLN(b);                { ulaz - ucitavanje promjenljive }

  Writeln('a = ', a, '  b = ', b);

  s:= a + b;     { suma }
  r:= a - b;     { razlika }
  p:= a * b;     { proizvod }

  IF  (s > 99) AND (s < 1000) THEN     { da li je trocifren? }
     Writeln('Suma = ',s );

  IF  (r > 99) AND (r < 1000) THEN     { da li je trocifren? }
     Writeln('Razlika ',r );

  IF  (p > 99) AND (p < 1000) THEN     { da li je trocifren? }
     Writeln('Proizvod = ',p );

  IF b <> 0 THEN          { da li je b razlicito od nule? }
     BEGIN
       k:= a / b;
     IF  (k > 99) AND (k < 1000) THEN     { da li je trocifren? }
     Writeln('Kolicnik = ',k );
     END
  ELSE
     Writeln('Dijeljenje sa nulom ' );
  READLN;
END.

Ispis na ekranu:

Index