unit FreeWare;

interface

procedure Coordonnees;

implementation


procedure Coordonnees;
begin
	Writeln;
	Writeln('╔═══════════════════════════════════════════════════════════════════════╗');
	writeln('║ Ce programme a été conçu et réalisé par Fabrice BELLARD qui a décidé  ║');
	writeln('║ généreusement de le mettre en FREEWARE.                               ║');
	writeln('║ Si vous avez des problèmes ou des suggestions pour ce programme,      ║');
	writeln('║ vous pouvez écrire à:       Fabrice BELLARD                           ║');
	writeln('║                          451 chemin du mas de matour                  ║');
	writeln('║                              34790 GRABELS   (FRANCE)                 ║');
	writeln('║                                                                       ║');
	writeln('║ ou envoyer un message en BAL sur RTEL ou QBSS au pseudo: FAB          ║');
	Writeln('╚═══════════════════════════════════════════════════════════════════════╝');
end;

end.