Множества

program Simple;

uses
  Crt;

var
  i, j: Integer;
  flag: Boolean;

begin
  ClrScr;
  for i := 201 downto 2 do begin
    flag := True;
    for j := 2 to i - 1 do
      if i mod j = 0 then begin
        flag := False;
        Break;
      end;
    if flag then
      Write(i: 4, ' ');
  end;
  WriteLn;
  ReadKey;
end.