program french; {$iglobdefs.pas} {$istdutil.pas} {$istdio.pas} {$ifrench1.pas} {$ifrench2.pas} {$ifrench3.pas}