7.3.. Učitati dva broja i jedno slovo koje predstavlja izbor aritmetičke operacije.
s - sabiranje
o - oduzimanje
m - množenje
d - dijeljenje.

Listing programa:

PROGRAM p07311026;
VAR
  op : CHAR;
  a, b: INTEGER;
BEGIN
  Writeln('Simulator kalkulatora');
  Writeln('s - sabiranje');
  Writeln('o - oduzimanje');
  Writeln('m - mnozenje');
  Writeln('d - dijeljenje');
  Write('unesi operaciju ');
  Readln(op);

  Write('1. broj ');
  Readln(a);
  Write('2. broj ');
  Readln(b);
  CASE op OF
    's' : Writeln(a, ' + ', b, ' = ', a + b);
    'o' : Writeln(a, ' - ', b, ' = ', a - b);
    'm' : Writeln(a, ' * ', b, ' = ', a * b);
    'd' : BEGIN
            IF b <>0 THEN
               Writeln(a, ' / ', b, ' = ', a / b)
            ELSE
              Writeln('Dijeljenje sa nulom')
          END;
     ELSE
        Writeln('pogresan operator');
  END;
  
  READLN;
END.

Ispis na ekranu:

Index