program Kalkulyator;
{$mode delphi}{$apptype console}
uses SysUtils;
var a, b: Double; op: string;
begin
  Write('a = '); ReadLn(a);
  Write('Операция (+ - * /): '); ReadLn(op);
  Write('b = '); ReadLn(b);
  if op = '' then op := '+';
  case op[1] of
    '+': WriteLn('= ', a + b:0:4);
    '-': WriteLn('= ', a - b:0:4);
    '*': WriteLn('= ', a * b:0:4);
    '/': if b <> 0 then WriteLn('= ', a / b:0:4)
         else WriteLn('Ошибка: деление на ноль');
  else
    WriteLn('Неизвестная операция');
  end;
  ReadLn;
end.