Вывести в столбик целые числа от -17 до 3 кратные 4 Помогите очень надо !

Question

Вывести в столбик целые числа от -17 до 3 кратные 4
Помогите очень надо !

Comments

17,16,14,12,10,8,6,4

Answer 1

Var i:integer;
begin
for i:=-17 to 3 do
if (i mod 4=0) then writeln(i:4);
end.
ПРоВерКА
 -16
 -12 
-8 
-4 
 0