Составить программу PASCAL. помогите пожалуйста, хелп ! Ввести с клавиатуры 7 чисел и...

Question

Составить программу PASCAL. помогите пожалуйста, хелп ! Ввести с клавиатуры 7 чисел и определить: 1. Сумму чисел кратных 5 2. Сумму отрицательных чисел кратных к 3 3. Количество положительных, четных чисел кратных 7

Answer 1

Var
begin
for i:=1 to 7 do begin
write (A=); read (a);
end;
sk:=0;
s:=0;
c:=0;
for i:=1 to 7 do begin
if a mod 5=0 then begin
sk:=sk+a;
end;
if (a<0) and (a mod 3=0) then begin<br> s:=s+a;
end;
if (a>0) and (a mod 2=0) and (a mod 7=0) then begib
c:=c+1;
end;
end;
write (sk,s,c);
end.