{ (c) 1998 CREEQ <creeq@web.de> }
program Ascii_Zeichennummern_ermitteln;
var i : integer;
begin
  writeln('Gib Nummer von Zeichen ein:  (Ende Zahl>127)');
  readln(i);
  while i < 128 do
    begin
      writeln('Nr.',i:4,'  Zeichen:',chr(i):3);
      readln(i);
    end;
end.