var

  x,y:real;

Begin

  write('Vvedite chislo x: ');

  readln(x);

  writeln('y1= ',power(x,8));

  writeln('y2= ',power(x,10));

  writeln('y3= ',power(x,15));

  writeln('y4= ',power(x,19));

  readln;

End.