ПОМОГИТЕ НАПИСАТЬ ПРОГРАММЫ В ПАСКАЛЕ!! ОЧЕНЬ СРОЧНО!!!
1. Построить и записать в виде программы алгоритм вычисления суммы квадратов десяти произвольных чисел, водимых с клавиатуры в процессе выполнения программы.
2. Составить программу нахождения суммы чётных чисел, находящихся в промежутке от 26 до 88.
3. Вводятся 14 чисел. Определить, сколько среди них положительных (включая 0) и сколько отрицательных. (Числа вводятся в одну переменную в цикле).

Это второе задание

sum:=0;  

x:=26;  

while (x <= 88) do  

begin  

sum:=sum+x;  

x:=x+2;  

end;