Как написать программу, выводящую на экран целые числа от 1 до n цикла с while ?

Предыдущий
вопрос Следующий
вопрос

var

   mas:array[1..1000000]of longint;

   i,k,n,summa,j,kolvo:longint;

begin

write('n=');

read(n);

  for i:= 3 to n do begin

    summa:=0;

    for k:=1 to n do begin

      if i mod k=0 then

      summa:=summa+1;

    end;

    if (summa=2) or (summa=1) then

      begin

        kolvo:=kolvo+1;

        for j:= i to i do

          mas[j]:=i;

      end;

    end;

writeln('sredi ',n,' chisel:',kolvo,' prostih);

writeln('A imenno:');

 for j:= 1 to n do

   if mas[j]<>0 then

   write(mas[j]:3);

end.