for i:=1 to MAX do
begin
        writeln('Bonjour !');
        z:=z+1
end