const
   Zajimavy = ['a'..'z','A'..'Z','0'..'9',' ','!',',','?',':'];

var
   segment, offset: word;
   c: char;
   s: string;
begin
   for segment := 0 to $FFFF do
   for offset := 0 to 15 do
   begin
      c := char( Mem[ segment:offset ] );
      if c in Zajimavy then
         s := s + c
                       else
         begin
            if length(s) >= 5 then
            begin
               write( s,'//' );
            end;
            s := ''
         end
   end


end.












var
   f: text;
begin
   assign( f, '180108.pas' );
   FileMode
   reset( f );
   readln( f );
   close( f )
end.


var
   f: text;
begin
   assign( f, '180108.pas' );
   append( f );
   writeln( f, '.......byl tady Fantomas!!...' );
   close( f )
end.






const
   N = 2000;

var A:array[1..N] of integer;
    i,j, pom: integer;


var  tick: longint absolute 0:$46c;
     start: longint;

begin
   for i:=1 to N do
      A[i] := random(maxint);

   start := tick;
   while tick=start do;
   start := tick;

   for j:=1 to N-1 do
   for i:=1 to N-1 do
      if A[i+1] < A[i] then
      begin
         pom := A[i]; A[i] := A[i+1]; A[i+1] := pom
      end;

   writeln( (tick-start)*51,'ms' )
end.









var
   A: array[1..25,1..80] of
      record
         zn: char;
         attr: byte
      end
         absolute $b800:0000;

var  x,y: integer;
     zn: char;
     attr: byte;
begin
   for y := 25 downto 2 do
   for x := 1 to 80 do
      if A[y,x].zn < A[y-1,x].zn then
      begin
         zn := A[y,x].zn;  attr := A[y,x].attr;
         A[y,x]   := A[y-1,x];
         A[y-1,x].zn := zn; A[y-1,x].attr := attr
      end
end.




var
   A: integer;
   B: integer absolute A;



begin
   A := 5;
   B := 7
end.

















{$F+}procedure KONEC;{$F-}
var  i: integer;
begin
   writeln( 'Bohuzel musime koncit, protoze ', ExitCode );

   { ExitProc := @KONEC; {}

   ExitCode := 0;
   ErrorAddr := @i
end;


var
   CoTamByloPredKONEC2: pointer;

{$F+}procedure KONEC2;{$F-}
begin
   writeln( 'KONEC2 ', ExitCode );

   ExitProc := CoTamByloPredKONEC2
end;

var i: integer;
begin
   ExitProc := @KONEC;

   CoTamByloPredKONEC2 := ExitProc;
   ExitProc := @KONEC2;

   writeln( 'Dobry den, jsme vas novy skvely program...' );

   i := 0;
   i := i div i
end.









type
   Funkce = function (x:real): real;
   PCHYBA = procedure( typ: integer; hlaska: string );


var
   CHYBA: PCHYBA;

procedure VytiskniTabulku( zac,kon: real; pocet: integer; f: Funkce );
var i: integer;
    krok,x: real;
begin
   if kon < zac then
   begin
      CHYBA(101, '!@!@#!@#!@#!@#!@#!#' );
   end;


   krok := (kon-zac) / (pocet-1);
   for i:=1 to pocet do
   begin
      x := zac + (i-1)*krok;
      writeln( x:10:2, f(x):10:2 )
   end
end;

{$F+}function P( x:real ): real;{$F-}
begin
   P := (x-3) * (x+10) * (x+2)
end;

{$F+}function Q( x:real ): real;{$F-}
begin
   Q := (x-13) * (x+25)
end;

{$F+}function sinus( x:real ): real;{$F-}
begin
   sinus := sin(x)
end;

function Koren( zac,kon,Epsilon: real; f: Funkce ): real;
var x: real;
begin

   while (kon-zac) > Epsilon do
   begin
      x := (zac + kon)/2;
      if f(x)*f(zac) > 0 then zac := x
                         else kon := x
   end;
   Koren := x
end;

{$F+}procedure Hlaseni( typ: integer; hlaska: string );{$F-}
begin
   writeln( 'CHYBA ',typ,': ',hlaska )
end;

var
   PocetChyb: integer;

{$F+}procedure NeHlaseni( typ: integer; hlaska: string );{$F-}
begin
   Inc( PocetChyb )
end;

var
   fufu: Funkce;
begin
   CHYBA := Hlaseni;
   CHYBA := NeHlaseni;
   VytiskniTabulku( 2*PI, 0.00, 10, sinus );
   readln;
end.


   writeln;
   writeln( Koren( -100, +100, 0.0001, P ) );
   writeln( Koren( -100, +100, 0.0001, Q ) );



   VytiskniTabulku( 0.00, 2*PI, 10, sinus );
   readln;
   fufu := P;
   VytiskniTabulku( 0.00, 10.00, 10, fufu );
   writeln;
   fufu := Q;
   VytiskniTabulku( 0.00, 10.00, 10, fufu )
end.


.......byl tady Fantomas!!...