uses crt;
var x,a,b,x5,x13:real;
begin
write('x=');
readln(x);
a:=x*x; //1
b:=a*x; //2
x5:=a*b;//3
x13:=x5*x5*b;//5
write('x^5=',x5:0:2,' x^13=',x13:0:2);
end.
uses crt;
var x,a,b,x5,x13:real;
begin
write('x=');
readln(x);
a:=x*x; //1
b:=a*x; //2
x5:=a*b;//3
x13:=x5*x5*b;//5
write('x^5=',x5:0:2,' x^13=',x13:0:2);
end.