Bonjour,


program long;
uses wincrt;
var ch,ch1:string;
i,r:integer;


Begin