Не используя функцию возведения в квадрат напишите на языке паскаль наиболее короткие алгоритмы вычисления: 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.