Вывести все целые числа меньше 0 и больше заданного числа N которые делятся на 3

uses crt;
var
   i,n:longint;
begin
clrscr;
repeat
 writeln('Vvedite otricatel"noe n ');
 readln(n);
 if (n>0) then
   writeln('N neotricatel"noe!!!') ;
until (n<0);
for i:=-1 downto n do
 if (i mod 3=0) then
  writeln(i,' ');
readln;
end.

uses crt;
var i,n:longint
begin
clrscr;
read(n);
while n>=0
if (i mod 3=0) then
 writeln(i,' ');
 readln;
 end.
 
uses crt;
var i,n:longint;
begin
clrscr;
read(n);
repeat
if (n>0) then
 writeln('N neotricatel"noe!!!') ;
 until (n<0);
writeln(i,' ');
end.
 
uses crt;
var i,n:longint
begin
clrscr;
for i:=-1 downto n do
end.

uses crt;
var n: integer;
begin clrscr;
readln(n);
while n < 0 do begin
if n mod 3 = 0 then writeln(n);
inc(n);
end;
readkey
end.

uses crt;
var n: integer;
begin clrscr;
readln(n);
repeat
if n mod 3 = 0 then writeln(n);
inc(n);
until n = 0;
readkey
end.

uses crt;
var i,n: integer;
begin clrscr;
readln(n);
for i:=n to 0 do
  if (i mod 3 = 0) and (i<>0) then writeln(i);
readkey
end.

uses crt;
var n: integer;
begin clrscr;
readln(n);
if n mod 3<>0 then n:=n-(n mod 3);
while n < 0 do
begin
 writeln(n);
 inc(n,3);
end;
readkey
end.

for i:=n div 3 to -1 do
writeln(i*3);