program laba3_2;

//Uses
//   System.SysUtils;

Type
   TByteSet = set of Byte;

procedure PrintTask; forward;
function InputValue(Min, Max: Integer): Integer; forward;
function UserInputFromConsole(): Byte; forward;
function UserInputFromFile(Path: String): Byte; forward;
function CheckPath(Path: String): Boolean; forward;
function UserOutputPath(): String; forward;
procedure PrintInConsole(a: TByteSet; n: Integer); forward;
procedure PrintInFile(Path: String; a: TByteSet; n: Integer); forward;
function CheckFile(Path: String): Boolean; forward;
function UserInputPath(): String; forward;
function InputMethod: Word; forward;
function OutputMethod(): Word; forward;
function Eratosfen(a: TByteSet; n: Integer): TByteSet; forward;

function InputValue(Min, Max: Integer): Integer;
var
   CurrentValue: Integer;
   IsValid: Boolean;
begin
   repeat
   IsValid := True;
   try
      Read(CurrentValue);
   except
      begin
         IsValid := False;
         Writeln('Введено нецелое число');
      end;
   end;
   if IsValid then
      if (CurrentValue < Min) or (CurrentValue > Max) then
      begin
         IsValid := False;
         Writeln('Введите число в заданном диапазоне');
      end;
   until IsValid;
   InputValue := CurrentValue;
end;

function UserInputFromConsole(): Byte;
var
   n: Integer;
   const MIN_SIZE = 2;
   const MAX_SIZE = 256;
begin
   Write('Введите число, до которого нужно найти все простые числа в диапазоне ', MIN_SIZE, '..', MAX_SIZE, ': ');
   n := InputValue(MIN_SIZE, MAX_SIZE);
   Readln;
   UserInputFromConsole := n;
end;

function UserInputFromFile(Path: String): Byte;
var
   n: Integer;
   MyFile: TextFile;
begin
   AssignFile(MyFile, Path);
   reset(MyFile);
   Readln(MyFile, n);
   closefile(MyFile);
   UserInputFromFile := n;
end;

function CheckPath(Path: String): Boolean;
begin
   if FileExists(Path) then
   begin
      Writeln(Path, ' существует');
      CheckPath := True;
   end
   else
   begin
      Writeln(Path, ' не существует');
      Writeln('Введите корректный путь к файлу');
   end;
end;

function UserOutputPath(): String;
var
   Path: String;
begin
   Writeln('Введите абсолютный путь к файлу для вывода результата');
   Readln(Path);
   UserOutputPath := Path;
end;

procedure PrintInConsole(a: TByteSet; n: Integer);
var
   i: Integer;
begin
   for i := 2 to n do
      if i in a then
         Write(i, ' ');
   Writeln;
end;

procedure PrintInFile(Path: String; a: TByteSet; n: Integer);
var
   i: Integer;
   MyFile: TextFile;
begin
   AssignFile(MyFile, Path);
   rewrite(MyFile);
   for i := 2 to n do
      if i in a then
         Write(MyFile, i, ' ');
   close(MyFile);
   Writeln('Результат работы помещён в файл');
end;

function CheckFile(Path: String): Boolean;
var
   IsValid: Boolean;
   n: Integer;
   MyFile: TextFile;
   const MIN_SIZE = 2;
   const MAX_SIZE = 256;
begin
   AssignFile(MyFile, Path);
   reset(MyFile);
   IsValid := True;
   try
      Read(MyFile, n);
   except
      IsValid := False;
   end;
   if IsValid then
      if (n < MIN_SIZE) or (n > MAX_SIZE) then
         IsValid := False;
   close(MyFile);
   CheckFile := IsValid;
end;

function UserInputPath(): String;
var
   Path: String;
begin
   repeat
      repeat
         Writeln('Введите абсолютный путь к файлу с входными данными');
         Readln(Path);
      until CheckPath(Path);
      if not(CheckFile(Path)) then
         Writeln('Неккоректные данные в файле, исправьте файл');
   until (CheckFile(Path));
   UserInputPath := Path;
end;

function InputMethod: Word;
var
   Method: Word;
   IsValid: Boolean;
begin
   Writeln('Каким способом хотите ввести данные?');
   Writeln('1 - с помощью консоли');
   Writeln('2 - с помощью файла');
   repeat
      IsValid := True;
      try
         Readln(Method);
      except
         begin
            IsValid := False;
            Writeln('Введено нецелое число');
         end;
      end;
      if IsValid then
         if (Method <> 1) and (Method <> 2) then
         begin
            IsValid := False;
            Writeln('Введите 1 или 2');
         end;
   until IsValid;
   InputMethod := Method;
end;

function OutputMethod(): Word;
var
   Method: Word;
   IsValid: Boolean;
begin
   Writeln('Куда хотите вывести результат?');
   Writeln('1 - в консоль');
   Writeln('2 - в файл');
   repeat
      IsValid := True;
      try
         Readln(Method);
      except
         begin
            IsValid := False;
            Writeln('Введено нецелое число');
         end;
      end;
      if IsValid then
         if (Method <> 1) and (Method <> 2) then
         begin
            IsValid := False;
            Writeln('Введите 1 или 2');
         end;
   until IsValid;
   OutputMethod := Method;
end;

procedure PrintTask;
begin
   Write('Данная программа находит все простые числа, не превосходящие n, ');
   Writeln('с помощью алгоритма «решето Эратосфена»');
end;

function FillSet(n: Integer): TByteSet;
var
   i: Integer;
   a: TByteSet;
begin
   for i := 2 to n do
      Include(a, i);
   FillSet := a;
end;

function Eratosfen(a: TByteSet; n: Integer): TByteSet;
var
   i, j: Integer;
begin
   for i := 2 to n do
      if i in a then
         for j := i + 1 to n do
            if j in a then
               if (j mod i = 0) then
                  Exclude(a, j);
   Eratosfen := a;
end;

procedure Main();
var
   Method: Word;
   n: Byte;
   a: TByteSet;
   i: Integer;
   MyFile: TextFile;
   Path: String;
begin
   PrintTask;
   Method := InputMethod;
   if (Method = 1) then
      n := UserInputFromConsole
   else
   begin
      Path := UserInputPath;
      n := UserInputFromFile(Path);
   end;
   a := FillSet(n);
   a := Eratosfen(a, n);
   Method := OutputMethod;
   if (Method = 1) then
      PrintInConsole(a, n)
   else
   begin
      Path := UserOutputPath;
      PrintInFile(Path, a, n);
   end;
   Writeln('Нажмите Enter для выхода из программы');
   Readln;
end;

begin
   Main();
end.
//D:\Папка Ильи\лабораторки\оаип\3_2\input.txt
//D:\Папка Ильи\лабораторки\оаип\3_2\output.txt