напишите программу которая в последовательности натуральных чисел

Ответ от
var k,n:integer;
begin
k:=0;
n:=-1;
while (k<1000)and(n<>0) do
begin
repeat
writeln('Vvod: ');
readln(n);
if (n>30000) then writeln('Nevernij vvod');
until n<=30000;
if (n<500)and(n mod 3=0) then k:=k+1;
end;
k:=k-1;
writeln('k=',k);
readln;
end.