Задачи по паскалю! ! Нужна помощь!

Question

КТО ЧТО СМОЖЕТ 
ОЧЕНЬ НУЖНА ВАША ПОМОЩЬ 
 
Задача 1 
Найти сумму квадратов всех целых чисел от А до 100 (число А вводится с клавиатуры) . 
 
Задача 2 
Для заданного числа Н вывести все его делители, отличные от самого Н, кратные 3 или 5. 
 
Задача 3 
Дана последовательность Н целых чисел (числа Н задаются с клавиатуры) . Подсчитать в последовательности среднее арифметическое неотрицательных чисел. Результат вывести с точностью до 3 знака например - 3.333

Мария Мерс · Accepted Answer

1. 
 
var 
 a, s: longint; 
begin 
 write('a? '); 
 readln(a); 
 if a <= 100 then 
 if (a >= 0) then 
 s := 338350 - a * (a - 1) * (2 * a - 1) div 6 
 else 
 s := 338350 - a * (1 - a) * (1 - 2 * a) div 6; 
 writeln('сумма: ', s); 
end.

Андрей · Answer

s:=0; 
for i :=trunc(a) to 100 do 
s:=s+sqr(a [ i ]); 
остальные пиши в адрес