Напишите программу вычисления y=x^8; y=x^10; y=x^15; y=x^19. С клавиатуры вводится только одно значение x. На экран выводится четыре значения y.

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.