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

uses crt;
 
  //Объявление типа переменных
  var n:integer;
  var a, b:real;
 
begin
  Writeln('Введите номер действия и два числа A и B');
  
  // Ввод переменных
  Read(n, a, b);
  
  //Пользуясь оператором выбора, выводим ответ
  case n of
     1:writeln('Ответ: ',a+b);
     2:writeln('Ответ: ',a-b);
     3:writeln('Ответ: ',a*b);
     4:writeln('Ответ: ',a/b);
  else writeln('Ошибка');
  end;
  readln;
end.