преобразуйте в код ascii выражение: FOR I=1 TO N

Если правильно понял задачу program Znanija;var s:string;i:integer;begins := 'FOR I=1 TO N';for i:=1 to 11 do  write(ord(s[i]), ' ');end.Результат: 70 79 82 32 73 61 49 32 84 79 32