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

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.