case sGrMode of
0: <инициализация первого граф. режима>;
1: <инициализация второго граф. режима>;
 . . . . . .
end;

for i:=1 to 10 do
a[i]:=-a[i]

uses crt;
var
  a, x, t, M : real;
begin
 clrscr;
 write('a=');
 readln(a);
 write('x=');
 readln(x);
 write('t=');
 readln(t);
 if a*x < t then
    M:=4*x*x+2*x-19
 else if a*x = t then
    M:=1/(3*x+4)
 else M:=-5*x;
 writeln('M=',M:10:2);
 readln;
end.

procedure find_elem_bin(value:integer; var find:boolean;
                                         var count_compare:integer);
var L,R,m,n,i:integer;

begin
 count_compare:=0;
 find:=false;
 L:=0;
 R:=counter;
 curr:=head;
 n:=(L+R) div 2;
 m:=n;
 for i:=1 to (n-1) do curr:=curr^.next;

 while L<R do begin
  if curr^.data<value then begin
    L:=m+1;
    m:=(L+R) div 2;
    for i:=n to (m-1) do curr:=curr^.next;
    n:=m;
  end
  else
  if curr^.data>value then begin
    R:=m;
    m:=(L+R) div 2;
    curr:=head;
    for i:=1 to m-1 do curr:=curr^.next;
    n:=m;
  end
  else
  if curr^.data=value then begin
    find:=true;
    break;
  end;
  //writeln('L=',L,' R=',R,' m=',m,' n=',n,' curr=',curr^.data);
 end;

end;

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

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:=2 to a-1 do
    if a mod i=0 then inc(p);
    if p=0 then c:=true;
end;
begin
  writeln('введите число');
  readln(n);
  for i:=1 to n do
    begin
      for b:=1 to n-1 do
       prost(b,h);
       if (h=true) and (i mod b=0)
    then begin
      inc(z);
      for j:=1 to 3 do
        x[j]:=b;
    end;
      if z=3 then writeln(n,'(',x[1],'*',x[2],'*',x[3],')');
    end;
  readln;
end.