Не используя функцию возведения в квадрат написать на языке паскаль наиболие короткие алгоритмы вычисления а) у=х^10 б) у=х^15 постараясь использовать минимальное количество переменных

Предыдущий
вопрос Следующий
вопрос

а)

var
x, y : integer;
begin
// Ввод значения x
readln(x);
// Возведение x в квадрат
y := x * x;
// Возведение y в квадрат
y := y * y * y;
// Вывод результата
writeln('y = ', y);
end.

б)

var
x, y : integer;
begin
// Ввод значения x
readln(x);
// Возведение x в квадрат
y := x * x;
// Возведение y в квадрат
y := y * y * y * x;
// Вывод результата
writeln('y = ', y);
end.