9 клас. Зміна значення елементів табличної величини.

Вправа 1. Квадрати значень. (с. 121)
(в книжці помилка: функція sqr() - піднесення до квадрату)

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
  a:array[1..10] of integer;
begin
  for i:=0 to 9 do
      begin
        a[i+1]:=StrToInt(Memo1.Lines[i]);
        a[i+1]:=sqr(a[i+1]);
        Memo2.Lines[i]:=IntToStr(a[i+1]);
      end;
end;

Додаткове завдання.
   Знайти та вивести на форму суму елементів вхідного масиву.

ДЗ: с. 120-124, вправа 2, с.123