Ир Ирина Какие на хрен координаты? var s: string; c: integer; begin write('строка? '); readln(s); for c := 1 to length(s) do write(' ', ord(s[c])); end.