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

Var
  i, k: integer;
begin
k := 0;

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