uses crt;

var f:file of char;

    x:char;

    i:longint;

begin

     clrscr;

     writeln('Cac tac gia cua Turbo Pascal 7.0');

     writeln('---------------------------');

     assign(f,'turbo.exe');

     reset(f);

     seek(f,393850);

     for i:=1 to 679 do

     begin

          read(f,x);

          if (x=' ') or (x='.') or (('a'<=x) and (x<='z')) or (('A'<=x) and (x<='Z')) then

             write(x)

             else write(',');

     end;

     close(f);

     readln

end.

uses crt;

var f:file of char;

    x:char;

    i:longint;

begin

     clrscr;

     writeln('Cac tac gia cua Turbo C++ 3.0');

     writeln('---------------------------');

     assign(f,’tc.exe’);

     reset(f);  

     seek(f,554011);

     for i:=1 to 972 do

     begin

          read(f,x);

          if x='~' then write(',') else write(x);

     end;

     close(f);

     readln

end.