выведите на экран числа кратные четырем в диапазоне от 230 до 297 располодив их по убыванию и укажите их количеств

var   i, k: integer;begink := 0;for i := 297 downto 230 do  if i mod 4 = 0 then  begin    write(i, ' ');    k := k + 1;  end;  writeln(#13+'Количество = ', k);end.