7.3.. Napisati program za simulaciju rada kalkulatora

PROGRAM Saberi_oduzmi;
USES
  WinCrt;
VAR
  a, b : Real;
  op: Char;
BEGIN
  Writeln('Kalkulator ');
  Write('Brojevi (a b)');
  Readln(a, b);
  Write('Operacija (+ -) ');
  Readln(op);
  CASE op OF
    '+' : Writeln(a + b);
    '-' : Writeln(a - b);
  END;
END.

Ispis na ekranu:

Index