Задача в Turbo Pascal

uses crt;

var
  alpha: array[1..8]of double;
  gm, a: array[1..5]of double;
  i, j: integer;
  alphasum: double;
begin
clrscr;
randomize;
writeln('alpha:');
for i:=1 to 8 do
  begin
    alpha:=random(10);
    writeln(alpha:2:4);
  end;
writeln('gamma:');
for j:=1 to 5 do
  begin
    gm[j]:=random(10);
    writeln(gm[j]:2:4);
  end;
alphasum:=0;
for i:=1 to 8 do
  alphasum:=alphasum+sqr(alpha);
for j:=1 to 5 do
  a[j]:=sqr(gm[j])*alphasum;
writeln('a:');
for j:=1 to 5 do
  writeln(a[j]:2:4);
readln;
end.