Program ASCII;
Uses crt;
Var
r:integer;
Begin
clrscr;
for r:=1 to 250 do
write(r,chr(r),' ');
readkey;
End.