Выполнить над числами указанное действие и вывести результат. Арифметические действия над числами пронумерованы следующим образом: 1 — сложение, 2 — вычитание, 3 — умножение, 4 — деление. Дан номер действия N (целое число в диапазоне 1–4) и вещественные числа A и B (B не равно 0) — Pascal(Паскаль)

Program Case5;

Var
  x: Integer;
  A, B: Real;

Begin
  WriteLn('Введите А и В');
  ReadLn(A, B);
  WriteLn('Введите действие:');
  ReadLn(x);
  Case x Of
    1:
      WriteLn('сложение, результат: ', A + B);
    2:
      WriteLn('вычитание, результат: ', A - B);
    3:
      WriteLn('умножение, результат: ', A * B);
    4:
      WriteLn('деление, результат: ', A / B);
  End;

End.