Программа

Program Pilshikov_5_50 (input,output);
{ Дано целое N>2.
  Напечатать все простые из [2,N]. }
Var N,i,iDIV2,D:integer;
    Flag:boolean;
BEGIN
  Write('Введите N ');
  Readln(N);
  for i:=2 to N do
    Begin
      Flag:=true;
      D:=2;
      iDIV2:=i div 2;
      while (D<=iDIV2)and Flag do
        begin
          if i mod D =0 then Flag:=false;
          D:=D+1
        end;
      if Flag then Writeln(i)
    End
END.