3. Не используя функцию возведения в квадрат, напишите на языке Паскаль наиболее короткие алгоритмы вычисления:
а) y=x10 б) y=x15
Постараться использовать минимальное количество дополнительных переменных.

var x,y,i: integer;beginreadln (x);y:=x;for i:=2 to 10 doy:=y*x;writeln (y);end.В примере б) та же программа, но замени на i:=2 to 15PS вместо integer может быть real. Зависит от условия задачи.