Пожалуйста посчитайте! 40Б!Составить программу которая запрашивает значение переменной x, номер арифметического действия и в зависимости от номера действия определяет y.x(в квадрате), если n=1cos(x), если n=2y=sin(x), если n=3IxI, если n=4

var
x:real;
n:integer;
begin
Write('Введите x -> ');
Readln(x);
Write('Введите номер действия(1..4) - > ');
readln(n);
case n of
  1: Writeln('y = ', x*x);
  2: Writeln('y = ', cos(x));
  3: Writeln('y = ', sin(x));
  4: Writeln('y = ', abs(x));
end;
end.