Сделать программу на DELPHI
Описать процедуру PowerA234(A, B, C, D)вычисляющую вторую, третью и четвертую степень числа А и возвращающую эти степени соответственно в переменных В, С и D(А-входной, В,С,Д-выходные параметры,все параметры вещественные) . С помощью этой процедуры найти вторую, третью и четвертую степень пяти данных чисел.

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

program PowerCalculation;
{$APPTYPE CONSOLE}
uses
SysUtils;
procedure PowerA234(A: Real; var B, C, D: Real);
begin
B := A * A;
C := B * A;
D := C * A;
end;
var
i: Integer;
num: Real;
secondPower, thirdPower, fourthPower: Real;
begin
for i := 1 to 5 do
begin
Write('Enter a number: ');
ReadLn(num);
PowerA234(num, secondPower, thirdPower, fourthPower);
WriteLn('Second power: ', secondPower);
WriteLn('Third power: ', thirdPower);
WriteLn('Fourth power: ', fourthPower);
WriteLn;
end;
end.

Эта программа принимает пять чисел от пользователя и вычисляет вторую, третью и четвертую степень каждого числа с помощью процедуры PowerA234. Результаты выводятся на экран.