9 клас. Урок 11. Алгоритми опрацювання табличних величин

var a: array [1..10] of real;
  i:integer;
begin
   memo2.Clear;
   for i:=0 to 9 do
   begin
     a[i+1]:=strtofloat(memo1.Lines[i]);
     a[i+1]:=a[i+1]*a[i+1];
     memo2.lines[i]:=FloatToStr(a[i+1]);
   end;

end;