Помогите решить задачи по информатике!!! ОЧЕНЬ НУЖНО!!!

Ну ты зарядила и ты думаешь тебе станут это все решать? Выкладывай по одной тогда решат все сразу врятли.

паскаль не знаю, пишу на С++
1.можно бесконечный цикл принимающий 2 числа (1 больше 2)
если 2 больше первого сделать цикл сам завершится и будет выход (это С++)
в общем примерно так
3.проверяешь все числа циклом
если число кратно 5 заносишь его в массив
в конце просо перемножаешь все элементы массива
4,5,6.примерно тоже самое

1.
program n1;
uses crt;
var c,sum:integer;
begin
clrscr;
c:=1;
while c<>0 do
begin;
readln(c);
sum:=sum+c;
end;
Writeln(sum);
readln;
end.

2.
program n2;
uses crt;
const n=50;
var alpha,sum,cif,i:integer;
begin
clrscr;
cif:=0;
randomize;
readln(alpha);
for i:= 1 to n do
begin
cif:= random(100);
if cif>alpha then
sum:=sum+cif;
end;
Writeln(sum);
readln;
end.

3.
program n3;
uses crt;
const n=5;
var a:array[1..n] of integer;
i,sum:integer;
begin
clrscr;
sum:=1;
for i:=1 to n do
readln(a[ i ]);
for i:= 1 to n do
if (a[ i ] mod 2)=1 then
sum:=sum*a[ i ];
Writeln(sum);
readln;
end.

4.
program n4;
uses crt;
const n=5;
var a:array[1..n] of integer;
i,sum:integer;
begin
clrscr;
sum:=0;
for i:=1 to n do
readln(a[ i ]);
for i:= 1 to n do
if (a[ i ] mod 2)=0 then
sum:=sum+a[ i ];
Writeln(sum);
readln;
end.

5.
program n5;
uses crt;
const n=5;
var a:array[1..n] of integer;
i,sum:integer;
begin
clrscr;
sum:=0;
for i:=1 to n do
readln(a[ i ]);
for i:= 1 to n do
if (a[ i ] mod 5)=0 then
sum:=sum*a[ i ];
Writeln(sum);
readln;
end.

6.
program n6;
uses crt;
const n=5;
var a:array[1..n] of integer;
i,sum:integer;
begin
clrscr;
sum:=0;
for i:=1 to n do
readln(a[ i ]);
for i:= 1 to n do
if (a[ i ] mod 8)=0 then
sum:=sum+a[ i ];
Writeln(sum);
readln;
end.

P.S. 3-6 сделал через массив дабы разнообразить решение))