program test;
uses crt,sysutils;
var ch	: string;
   truc	:  integer;
begin
repeat
ch := readkey;
   truc := strtoint(ch);
writeln(ch,',',truc)
until ch = #27;
end.
