Ответ:

var D: array [1..5] of integer;

var i: integer;

begin

randomize();

writeln('Исходный массив: ');

for i:=1 to 5 do

 begin

 D[i]:=random(10);

 write(D[i],' ');

 D[i]:=D[i]*D[i];

 end;

writeln();

writeln('Результат: ');

for i:=1 to 5 do

 write(D[i],' ');

end.