Написать 2 спосабами программирования выселения степени числа x(икс)

А еще один способ можно?

1) p=(|x1-x2|+|y1-y2|)*2s= |x1-x2|*|y1-y2|2)Pascala:=a*a;writeln(a);b:=a*a;writeln(b);writeln(a*b);3)Pascalcena:=cenazax/x; // cena za 1 kgcenazay:=cena*y

Спасибо

Надеюсь правильно

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.