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.