Описать процедуру, вычисляющую вторую, третью и четвертую степень числа А и возвращающую эти степени - Pascal ABC

Формулировка задачи:

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

Решение задачи: «Описать процедуру, вычисляющую вторую, третью и четвертую степень числа А и возвращающую эти степени»

textual
                            Листинг программы 
                        

                            uses crt;
procedure Power234(a:real;var b,c,d:real);
var i:byte;
     s:real;
begin
s:=1;
for i:=1 to 4 do
 begin
  s:=s*a;
  if i=2 then b:=s
  else if i=3 then c:=s
  else if i=4 then d:=s;
 end;
writeln('a=',a:0:2,'    ^2=',b:0:2,'  ^3=',c:0:2,'  ^4=',d:0:2);
end;
var a,b,c,d:real;
    i:byte;
begin
for i:=1 to 5 do
 begin
  write('Введите число для возведения в степень a=');
  read(a);
  Power234(a,b,c,d);
 end;
end.
                        