var i: integer; f: text; begin assign(f, 'tahed.txt'); rewrite(f); for i:=100 to 255 do writeln(f, i, '. ', chr(i)); close(f); end.