Ребят срочно!!!! Очень!
Ответ:
For i:=-2000 to 2000 do
If(i mod 19 = 0) and i mod 10 =7 then begin
Writeln(i);
Count:= count +1;
End;
Writeln(count)