{* Калькулятор *}

Unit CALLC;
Interface
Implementation
Begin
 writeln('Калькулятор');
End.

Program pas;

Uses callc.pas; {* Эту строку можно удалить *}
Var {* В работе нам потребуются переменные: *}
  x   : real;
  y   : real;
  rez : real;
  de  : char;
Begin
  Repeat  Writeln('Vvedite componenti:');
    Readln(x);
  ReadLn(de);
  ReadLn(y);
  Case de Of  ' - ' : rez := x - y;
    ' + ' : rez := x + y;
  ' / ' : rez := x / y;
  ' * ' : rez := x * y;
  Else Writeln('Neverno vveden znak operacii!');
End;
  Writeln(' = ', rez : 5 : 2);
  Writeln('Prodilchit?');
  Readln(de);
Until (de = 'N') Or (de = 'n');
End......