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 sdvig;
type
    Mas=array [0..99] of integer;
Procedure vvod(Var m:Mas; Var kolvo:integer);
          Var i:integer;
              begin
                   repeat
                         write('Vvedite kolvo elementov:');
                         readln(kolvo);
                   until kolvo>0;
                   for i:=1 to kolvo do
                       begin
                            write('element:');
                            read(m[i]);
                       end;
              end;
Procedure udalenie(Var m:Mas; Var element:integer;Var kolvo:integer);
Var i:integer;
   Begin
        for i:=element to kolvo do
            Begin
            m[i]:=m[i+1];
            End;
            kolvo:=kolvo-1; //не отображать нуль-элемент массива
            
   End;
var i,m,kolvo,element:integer;
    accept:string;
    n:mas;
Begin
     vvod(n,kolvo);
     repeat
     writeln('Vvedite Nomer elementa');
     readln(element);
     udalenie(n,element,kolvo);
       writeln('Massiv:');
       for i:=1 to kolvo do
           write(n[i],' ');
     writeln(' ');
     writeln('Udalit esho 1 element massiva?');
     writeln('Yes/no?');
     repeat
           read(accept);
     until (accept='no') or (accept='yes') ;
     until accept = 'no';
end.