Помогите решить задачи в паскаль ABC!!Буду очень благодарна

1. Нам нужна переменная (скажем, S) для суммы квадратов. Изначально задаем ей значение "0". Потом будем ее увеличивать. Еще нужна переменная для введенного числа Q. И переменная цикла I.

Заводим цикл по переменной I, меняем ее от 1 до 5, чтобы запросить 5 чисел.
В цикле запрашиваем число (ReadLn(Q)) в переменную Q.
Затем прибавляем квадрат этого числа (Q*Q) к переменной S:
S:=S + Q*Q;

После цикла выводим сумму S.

Пример: изначально S = 0.
Вводим 1-е число: Q = 3
S := S + Q*Q = 0 + 3*3 = 0 + 9 = 9
S = 9
Вводим 2-е число: Q = 2
S := S + Q*Q = 9 + 2*2 = 9 + 4 = 13
S = 13
Вводим 3-е число: Q = 5
S := S + Q*Q = 13 + 5*5 = 13 + 25 = 38
S = 38
И так далее, до пяти чисел.

2. Заводим переменную P для произведения. Умножать на 0 смысла нет: произведение всегда будет 0. А вот если числа умножать на 1, тогда получим произведение этих чисел. Поэтому изначально P:=1;

Цикл от 1 до 6 выполнится 6 раз.
В цикле запрашиваем число (ReadLn(Q)) и умножаем на него наше произведение:
P := P * Q;

После цикла выводим произведение P.

Пример: изначально P = 1.
Вводим 1-е число: Q = 4
P := P * Q = 1 * 4 = 4
P = 4
Вводим 2-е число: Q = 3
P := P * Q = 4 * 3 = 12
P = 12
Вводим 3-е число: Q = 7
P := P * Q = 12 * 7 = 84
P = 84
И так далее, до шести чисел.