Question

Помогите пожалуйста
напишите программу которая в последовательности целых чисел определяет количество четных чисел и кратных 7
ввод -32 14 17 0
выход 1

Answer 1

var a,b,c,n:integer;
begin 
  n:=0; 
  b:=0; 
  writeln('введите пять целых чисел');   
readln(a); 
while (b<>4) do   
begin   
 if (a mod 7 = 0) and ( a mod 2 = 0 ) and ( a<>0 ) then   
 n:=n+1;   
 readln(a);   
 b:=b+1;   
end; 
writeln('ответ ',n);
end.