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

var
  a, c, b: integer;

begin
  writeln('введите действие');
  readln(c);
  writeln('введите A');
  readln(a);
  writeln('введите B');
  readln(b);
  case c of
    1:
      writeln(a + b);
    2:
      writeln(a - b);
    3:
      write(a * b);
    4:
      write(a div b);
  end;

end.