program BinTree;

uses crt;

type
  TreePointer = ^tree;
  TData = record
      TrainNumber: word; // номер поезда
      Station: string;   // станция назначения
      LeaveTime: record  // время отправления
        hour, min: word;
      end;
    end;
  tree = record
    data: TData;
    left: TreePointer; // Указатель на левое поддерево
    right:TreePointer; // Указатель на правое поддерево
  end;

// Добавление элемента
Procedure InsTree(var ANode : TreePointer; ldata : TData);
Begin
  if ANode = nil then
     Begin
       new(ANode);
       With ANode^ do
          Begin
            Left := nil;
            Right := nil;
            Data := ldata;
          end;
     end
  else if ldata.TrainNumber < ANode^.Data.TrainNumber then InsTree(ANode^.Left, ldata) else InsTree(ANode^.Right, ldata);
End;

// Вывод дерева
procedure PrintTree(ANode: TreePointer);
begin
  if ANode <> nil then
  Begin
    PrintTree(ANode^.Left);
    WriteLn('Train №',ANode^.Data.TrainNumber,' station: ',ANode^.Data.Station,' time: ',ANode^.Data.LeaveTime.Hour,':',ANode^.Data.LeaveTime.Min);
    PrintTree(ANode^.Right)
  End;
end;

// Поиск элемента по номеру поезда
procedure SearchTrainNumber(ANode: TreePointer; TrainNumber: word);
begin
  if ANode <> nil then
  Begin
    if TrainNumber=ANode^.data.TrainNumber then
        WriteLn('Train №',ANode^.Data.TrainNumber,' station: ',ANode^.Data.Station,' time: ',ANode^.Data.LeaveTime.Hour,':',ANode^.Data.LeaveTime.Min)
    else
    begin
        if TrainNumber<ANode^.data.TrainNumber then
            SearchTrainNumber(ANode^.left,TrainNumber)
        else SearchTrainNumber(ANode^.right,TrainNumber);
    end;
  end;
end;

// Поиск элемента по станции назначения
procedure SearchStation(ANode: TreePointer; Station: string);
begin
  if ANode <> nil then
  Begin
    SearchStation(ANode^.Left,Station);
    if Station=ANode^.Data.Station then
       WriteLn('Train №',ANode^.Data.TrainNumber,' station: ',ANode^.Data.Station,' time: ',ANode^.Data.LeaveTime.Hour,':',ANode^.Data.LeaveTime.Min);
    SearchStation(ANode^.Right,Station)
  End;
end;

var
  Root: TreePointer;
  dat: TData;
  index: byte;
  number: word;
  station: string;

begin
  repeat
   clrscr;
   writeln('select action:');
   writeln('1. input data');
   writeln('2. output tree');
   writeln('3. search train by number');
   writeln('4. search train by station');
   writeln('0. exit');
   writeln;
   write('Your choice: ');
   readln(index);
   case index of
     1: begin
          write('TrainNumber: ');
          readln(dat.TrainNumber);
          write('Station: ');
          readln(dat.Station);
          write('LeaveTime hour: ');
          readln(dat.LeaveTime.hour);
          write('LeaveTime min: ');
          readln(dat.LeaveTime.min);
          InsTree(Root, dat);         
        end;
     2: begin PrintTree(root); end;
     3: begin
          write('Train number: ');
          readln(number);
          writeln('Find:');
          SearchTrainNumber(root, number);
        end;
     4: begin
          write('Station: ');
          readln(station);
          SearchStation(root,station);
        end;
   end;
  until index = 0;
end.

uses crt;
var i,n:integer;
    f:boolean;
    j:integer;
begin
clrscr;
 f:=true;
  write('vvedite chislo n = ');
    readln (n);
for i:=1 to n do
begin
  f:=true;
  for j:=2 to i-1 do
    if i mod j = 0
       then f:=false;
  if f
     then write (i,'  ');
end;
readln
end.

uses crt;
var i,n:integer;
    f:boolean;
    j:integer;
    eps: real; // погрешность
begin
clrscr;
 f:=true;
 eps:=0.000001;
  write('vvedite chislo n = ');
    readln (n);
for i:=1 to n do
begin
 if not ((n mod 2) = 0) and not ((sqrt(n)-trunc(sqrt(n)))<eps) then ////////// new
 begin                    //////////
  f:=true;
  for j:=2 to i-1 do
    if i mod j = 0
       then f:=false;
  if f
     then write (i,'  ');
 end; ////////////////////////  new
end;
readln
end.

const maxn = 10000;
var arr: array[1..maxn] of boolean;
     i,j,n,sq:integer;
begin
 readln(n);
 sq:=trunc(sqrt (n));
 for i:=2 to n do arr[i]:=true;
 arr[1] = false;

 for i:=2 to sq do
  if arr[i] then begin
   j:=i*i;
   repeat
    arr[j]:=false;
    j:=j+i;
   until j>n;
  end;
end.