Написать программу к следующему : вывод чисел от 75 до 5 кратных ! заранее огромное

Var i: Integer;
begin
for i:=75 downto 5 do
begin
if i mod 5=0 then writeln(i);
end;
end.