Разработать программу, которая вычисляет значения одной из заданных функций при указанных значениях — Pascal(Паскаль)

program PascalGuru;

uses crt;

{ -------------- }
var
  y, x: real;
  option: integer;

begin
  write('X= ');
  readln(x);

  clrscr;
  writeln('X=', x:0:2);
  writeln;
  writeln('Vyberite variant: ');
  writeln('1) y=x');
  writeln('2) y=x*x');
  writeln('3) y=x*x*x');
  writeln('4) y=x*x*x*x');
  readln(option);
  case option of
    1:
      writeln('y= ', x:0:2);
    2:
      writeln('y= ', x * x:0:2);
    3:
      writeln('y= ', x * x * x:0:2);
    4:
      writeln('y= ', x * x * x * x:0:2);
  end;

  readln;

end.