program Eratosfen_DOS; {$APPTYPE CONSOLE} {функция Rus преобразует ANSI-строку в ASCII-строку} function Rus(mes:string):string; {в ANSI русские буквы кодируются числами от 192 до 255 в ASCII - от 128 до 175 (Ф..Яа..п) и от 224 до 239 (р..я)} var i: integer; {номер обрабатываемого символа} begin for i:=1 to length(mes) do case mes[i] of 'А'..'п': mes[i]:=Chr(Ord(mes[i])-64); 'р'..'я': mes[i]:=Chr(Ord(mes[i])-16); end; rus:=mes; end; {Основная программа} var N: integer; {число введённых первых чисел натурального ряда} G: integer; I: integer; M: array of boolean; P: integer; {число простых чисел} K: integer; begin Write(Rus('Введите число первых чисел натурального ряда: N=')); ReadLn(N); G:=Trunc(Sqrt(N)); SetLength(M,N+2); for I:=1 to N do M[I]:=true; P:=0; K:=2; I:=2; while (K*I