не используя функцию возведения в квадрат напишите на языке паскаль наиболее короткие алгоритмы вычисления: a) y=x в десятой b) y = x в пятнадцатой Постараться использовать минимальное количество дополнительных переменных.

Program p2; //для 10-ой

Var y, x:integer;

i:byte;

Begin

Readln (x); / /введите Х

For i:=1 to 10 do

Y:=y*x;

Writeln (Y);

End.

Program p2; //для 15-ой

Var y, x:integer;

i:byte;

Begin

Readln (x); / /введите Х

For i:=1 to 15 do

Y:=y*x;

Writeln (Y);

End.