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
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.