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

Помогите , я не шарю здесь!

uses crt;

var n:integer;a,b:real;

begin

clrscr;

writeln('Введите номер');

readln(n);

writeln('Введите 1 число');

readln(a);

writeln('Введите 2 число');

readln(b);

case  n of

1:writeln(a+b);

2:writeln(a-b);

3:writeln(a*b);

4:writeln(a/b);

end;

end.