program z6;
var i,k,n: integer;
begin
for i:= 2 to 100 do begin
	n:= 0;
	k:= 1;
	while(k<=i) and (n<3) do begin
		if (i mod k) = 0 then n:= n+1;
		k:= k+ 1;
		end;
	if n=2 then write(i,' ');
	end;

readln
end.

type
  PrimeNumbers = Array [byte] of integer;


function GetPrimeNumbers: PrimeNumbers;
var
  counter, number: integer; // текущий номер простого числа и само число
  i: integer; // счетчик цикла
  flag: boolean;
begin
  counter := -1;
  number := 2;

  while (counter < 255) do
    begin
      flag := true;

      if counter >= 0 then // у меня в Delphi 7 под Win7 некорректно отрабатывает 
                           //цикл for, если второй индекс меньше первого.
                           // возможно  проблема исключительно моей системы
        for i := 0 to counter do
          if (number mod Result[i] = 0) then
            begin
              flag := false;
              break;
            end;

      if flag then
        begin
          inc(counter);
          Result[counter] := number;
        end;

      inc(number);
    end;
end;


procedure TForm1.Button1Click(Sender: TObject);
var
  Numbers: PrimeNumbers;
  i: integer;
begin
  Numbers := GetPrimeNumbers;

  for i := 0 to 255 do
    Memo1.Lines.Add(IntToStr(Numbers[i]));
end;

Program SlivSort;
const arrsize= 20;
Var A,B : array[1..20] of integer;
    N,i  : integer;
Procedure Sliv(p,q : integer); {процедура сливающая массивы}
Var r,i,j,k : integer;
Begin
 r:=(p+q) div 2;
 i:=p;
 j:=r+1;
 for k:=p to q do
 if (i<=r) and ((j>q) or (a[i]<a[j])) then
  begin
   b[k]:=a[i];
   i:=i+1;
  end
 else
  begin
   b[k]:=a[j];
   j:=j+1;
  end ;
 for k:=p to q do
a[k]:=b[k];
End;
Procedure Sort(p,q : integer); {p,q - индексы начала и конца сортируемой части массива}
Begin
 if p<q then {массив из одного элемента тривиально упорядочен}
 begin
  Sort(p,(p+q) div 2);
  Sort((p+q) div 2 + 1,q);
  Sliv(p,q);
 end;
End;
Begin
 {Определение размера массива A - N) и его заполнение}
 randomize;
 for i:= 1 to arrsize do begin
	A[i]:= random(50);
	write(A[i],' ');
	end;
 Writeln;

 {запуск сортирующей процедуры}
 Sort(1,arrsize);
 {Вывод отсортированного массива A}
  for i:= 1 to arrsize do write(a[i],' ');
 readln;
End.