{programmer:mogtaba amirzade url http:\\www.ifjam.com } program p22(input,ouput); {36} var b,a,i:integer; begin for i:=1 to 256 do write(' ',chr(i),' = ',i,' '); readln end.