операторы цикла и одномерные массивы

[asd-uk]

ут 2 задания, кто знает Delphi тому просто сделать а я незнаю =(( помогите plz ))))




1.Составить программу, которая создает массив из 10 случайных чисел в
диапазоне от -10 до 10, выводит его на печать и вычисляет сумму квадратов его
элементов

2. Составить программу, которая печатает таблицу квадратов целых чисел от 1 до
N. Значение N ввести с клавиатуры. Таблицу отформатировать, как показано на образце.
Составить 3 варианта программы с использованием цикла FOR, цикла WHILE и цикла
REPEAT.
Образец оформления таблицы
Число Квадрат
1 1
2 4
3 9
4 16
5 25
6 36

[ОДИНОЧЕСТВО В СЕТИ]

1)

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var a:array[1..10] of integer;
    s:integer;
    i:integer;
begin
  s:=0;
  randomize;
  for I := 1 to 10 do
    begin
      a[i]:=random(21)-10;
      write(a[i]:4);
      s:=s+sqr(a[i]);
    end;
  writeln;
  write('sum=',s);
  readln;
end.

2)

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var a:array[1..10] of integer;
    n:integer;
    i:integer;
begin
writeln('n=');
 readln(n);
 Writeln('-----for-----');
 Writeln('':4,'x','':5,'x^2');
  {for}
  for I := 1 to n do
    begin
      writeln(i:5,'':6,sqr(i));
    end;
  {while}
   i:=1;
   Writeln('-----while-----');
   while i<=n do begin
    writeln(i:5,'':6,sqr(i));
    i:=i+1;
   end;
   {repeat}
   i:=1;
   Writeln('---repeat----');
   repeat
    writeln(i:5,'':6,sqr(i));
    i:=i+1;
   until i>n;
  readln;
end.

[asd-uk]

спасибо большое!!!!!!!!!!