Программа Pascal
Ввести число x и вывести третью, пятую и десятую степень этого числа и записать в переменную y (использовать оператор умножения минимальное количество раз)

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

program PowerCalculation;
var
x, y, x3, x5, x10: integer;
begin
write('Enter a number: ');
readln(x);
x2 := x * x; // возводим x в квадрат
x3 := x * x2; // возводим x в куб
x5 := x2 * x3; // возводим x в пятую степень
x10 := x5 * x5; // возводим x в десятую степень
writeln('Third power of ', x, ' is: ', x3);
writeln('Fifth power of ', x, ' is: ', x5);
writeln('Tenth power of ', x, ' is: ', x10);
y := x3 + x5 + x10; // записываем сумму третьей, пятой и десятой степени в переменную y
writeln('Sum of third, fifth and tenth power of ', x, ' is: ', y);
end.