uses crt;
const max=3;
type mytype=array[1..max] of word;
var i,b,n,z,j: integer;
    x: mytype;
    h: boolean;
procedure prost(a: integer; var c: boolean);
  var i,p: integer;
begin
  p:=0;
  c:=false;
  for i:=1 to a do
    if a mod i=0 then inc(p);
    if p=2 then c:=true;
end;
begin
  clrscr;
  writeln('введите число');
  readln(n);
  for i:=1 to n do
    begin
      z:=0;
     for b:=1 to i do
      begin
       prost(b,h);
       if (h=true) and (i mod b=0)
    then begin
      inc(z);
           j:=z;
      x[j]:=b;
    end;
      end;
      if (z=3) then writeln(b,'(',x[1],'*',x[2],'*',x[3],')');
    end;
  readln;
end.

Program Pr;
  Var A : Array[1..20] Of INTEGER;
        B : Array[1..9] Of INTEGER;
        I,K,P,MAX : INTEGER;
  Function FMax(MAX,A : INTEGER) : INTEGER;
    Begin
      If MAX<A Then
        A:=MAX
      Else;
    End;
Begin
  For I:=1 To 20 Do
    Begin
      Write('A[',I,']=');
      Readln(A[I])
    End;
  MAX:=A[1];
  For I:=1 To 20 Do
    K:=I mod 2;
    If K=0 Then
      For P:=1 To 9 Do
        B[P]:=A[I]
    Else;
  For I:=1 To 9 Do
      MAX:=FMAx(MAX,A[I]);
  Writeln('MAX=',MAX);
  Readln
End.

Program Pr_7;
  Uses CRT, GRAPH;
  Var I,A,B,E,X1,X2,Y1,Y2 : INTEGER;
Begin
  X1:=0;
  Y1:=50;
  X2:=150;
  Y2:=200;
  A:=Detect;
  InitGraph(A,B,'');
  E:=GraphResult;
    If E <> grOk Then
      Writeln(GraphErrorMsg(E))
    Else
      Begin
        For I:=1 To 100  Do
          Begin
            Clrscr;
            X1:=X1+1;
            X2:=X2+1;
            Rectangle(X1,Y1,X2,Y2)
          End
      End;
  Readln
End.

uses crt;
const speaker_port = $61;
pit_control = $43;
pit_channel_2 = $42;
pit_freq = $1234dd;

procedure sound( freq:word );
var
counter word;
begin
counter:=pit_freq div freq;
port[pit_control] :=  $b6;
port[pit_channel_2] := lo(counter);
port[pit_channel_2] := hi(counter);
port[speaker_port] := port[speaker_port] or 3;
end;

procedure nosound;
begin
port[speaker_port] := port[speaker_port] and $fc;
end;

begin
sound(200);
repeat until keypressed;
nosound;
end.

setfillstyle(3,4);
bar( x1,y1,x2,y2 );

program TheObject;
uses crt,graph;
type
   NLO1= object
   x,y: integer;
   constructor Lego(kx,ky: integer);
   procedure Move (dx,dy: integer);
   end;

var Driver, mode,tab,x,y,dx,dy: integer;
constructor NLO1.Lego(kx,ky: integer);
begin
 x:=kx;
 y:=ky;
end;
   procedure NLO1.Move(dx,dy: integer);
begin
  setcolor(GetBkColor);

  Arc(x,y,100,0,180,50);
  circle(x-20,y-30,5);
  circle(x+20,y-30,5);
  FillEllipse(x,y,100,20);
  line(x-40,y+20,240,150);
  line(x+40,y+20,360,150);

  SetColor(white);
  x:=x+dx;
  y:=y+dy;

  Arc(x,y,100,0,180,50);
  circle(x-20,y-30,5);
  circle(x+20,y-30,5);
  FillEllipse(x,y,100,20);
  line(x-40,y+20,240,150);
  line(x+40,y+20,360,150);
 end;
    var
    NLO:NLO1;
    Stop:Boolean;
begin
 driver:=VGA;
 mode:=VGAHi;
 InitGraph(Driver,mode, '');
 NLO.Lego(300,100);
 NlO.Move(0,0);
 case readkey of
 #27 : Stop:=true;
 #9 : begin
  if Tab=0 then Tab:=1 else Tab:=0;
      end;
 #0 : Case readkey of
 #77 : begin
  if Tab=0 then NLO.Move(3,0);
      end;
 #72 : begin
  if Tab=0 then NLO.Move(0,-3);
      end;
 #75 : begin
  if Tab=0 then NLO.Move(-3,0);
      end;
 #80 : begin
  if Tab=0 then NLO.Move(0,3);
      end;
       end;
  end;
   until stop = true
end.

 while L<R do begin

 while L<=R do begin