23010010.. Učitati 2 cijela broja i izračunati im zbir, razliku, proizvod i količnik.

Listing programa:

PROGRAM p23010010;
VAR                           { deklarisanje promjenljivih }
  a, b, s, r, p, k : REAL;    { cjelobrojne promjenljive }
BEGIN
  WRITE('a ');         { ulazne promjenljive }
  READLN( a );         { ulaz - ucitavanje promjenljive }
 
  WRITE('b ');         { ulazne promjenljive }
  READLN( b );         { ulaz - ucitavanje promjenljive }
 
  s := a + b;
  r := a - b;
  p := a * b;
  Writeln(' a ', a, '   b ', b, '   s ', s, '   r ', r, '   p ',p );

  IF b <> 0 THEN              { ako je b razlicito do 0 izracunaj kolicnik }
     BEGIN
      k := a / b;              { izraz1 }
      Writeln(' k ', k );
     END
  ELSE
       Writeln(' dijeljenje sa nulom ' );
  READLN;
END.

Ispis na ekranu:

Index