Составить программу на pascal: 1) для нахождения суммы 2^2+4^2+ 2) для нахождения всех делителей числа n

Var
   n,i:integer;
   S:real;
Begin
Write('n = ');ReadLn(n);
WriteLn('1)');
S:=0;
i:=2;
While i<=n do
   Begin
   S:=S+i*i;
   i:=i+2;
   End;
WriteLn('S = ',S);
WriteLn('2)');
Write(n);
i:=n div 2;
While i > 0 do
   Begin
   if n mod i = 0 then Write(' ',i);
   i:=i-1
   End;
End.

Основные параметры: частота и кол-во ядер процессора, объём и частота оперативной памяти, частота системной шины материнской платы, объём видеопамяти, производительность графического процессора, вид внутренней памяти (SDD\HDD), объём внутренней памяти, установленные операционные системы, размер и разрешение экрана монитора..
Эм... Попросить "знакомого компьютерщика" воткнуть кабели, куда следует, включить блок питания, включить компьютер, нажать F1 для получения справки (или продолжить докучать "знакомому компьютерщику").

1) в одном байте 8 бит.1800 байт переводим в биты = 1800*8 = 14400 бит
скорость 14400 бит/c делим 14400 на 14400 = 1с
передадим за 1 сек.
2)1.5Мбайта переводим в байты = в 1Мбайте 1024Кбайта в 1Кбайте 1024байта
получаем 1.5Мбайта=1536Кбайт=1572864байта умножаем на 8(перевод в биты)=12582912бит
канал 12800 бит/c делим получаем 983,04 секунды на передачу файла
3) 7200Кбайт умножаем на 8 получаем 57600 Кбит делим на скорость получаем 300сек.

Во втором задании может быть ошибка, но не пойму в чем. щас еще подумаю...