label start;
begin
  WriteLn('Доброго времени суток, ' + ReadLnString('Введите Ваше имя:') + ' =)');
  start:
  WriteLn('Выберите действие:', newLine, 'a) сложение', newLine, 'b) вычитание', newLine, 'c) умножение', newLine, 'd) деление', newLine, 'e) Выход');
  var a, b: real;
  case LowCase(ReadLnChar(' >>')) of
    'a':
      begin
        a := ReadLnReal('Введите первое слагаемое:');
        b := ReadLnReal('Введите второе слагаемое:');
        WriteLn('Ответ: ', a, ' + ', b, ' = ', a + b);
      end;
    'b':
      begin
        a := ReadLnReal('Введите уменьшаемое:');
        b := ReadLnReal('Введите вычитаемое:');
        WriteLn('Ответ: ', a, ' - ', b, ' = ', a - b);
      end;
    'c':
      begin
        a := ReadLnReal('Введите первый множитель:');
        b := ReadLnReal('Введите второй множитель:');
        WriteLn('Ответ: ', a, ' * ', b, ' = ', a * b);
      end;
    'd':
      begin
        a := ReadLnReal('Введите делимое:');
        b := ReadLnReal('Введите делитель:');
        WriteLn('Ответ: ', a, ' : ', b, ' = ', b <> 0 ? FloatToStr(a / b) : 'ДЕЛЕНИЕ НА НОЛЬ :(');
      end;
    'e': exit;
  else
    begin
      WriteLn('Упс...ошибочка...:(', newLine, 'Повторите ввод...');
      System.Console.Beep(800, 500);
      Sleep(1500);
      System.Console.Clear;
      goto start;
    end;
  end;
end.