Если имеется ввиду y=x^10 и y=x^15 , то:
program alg;
var y,x,c: integer;
begin
writeln ('enter x and y ');
readln (x,y);
c:=x*x*x*x*x;
y:=c*c;
writeln ('a) y=',y);
y:=y*c;
writeln ('b) y=',y);
readln;
End.
Если имеется ввиду y=x^10 и y=x^15 , то:
program alg;
var y,x,c: integer;
begin
writeln ('enter x and y ');
readln (x,y);
c:=x*x*x*x*x;
y:=c*c;
writeln ('a) y=',y);
y:=y*c;
writeln ('b) y=',y);
readln;
End.