надо написать программу в паскале
225 А,226 Б,227 Ц,228 Д,229 Е,230 Ф,231 Г,232 Х,233 И,234 Й,235 К,236 Л,237 М,238 Н,239 О,240 П,241 Я,242 Р,243 С,244 Т,245 У,246 Ж,247 В,248 Ь,249 Ы,250 З,251 Ш,252 Э,253 Щ,254 Ч,255 Ъ

// PascalABC.NET 3.3, сборка 1583 от 25.11.2017// Внимание! Если программа не работает, обновите версию!begin  var sk:=ReadAllText('koi8.txt');  var a:=ReadlnString.ToWords;  foreach var w in a do begin    var p:=Pos(w,sk);    if p>0 then begin      p:=Pos(' ',sk,p+1);      if p>0 then Write(sk[p+1]) else Write('?')      end    else Write('?')    end;  Writelnend.Пример245 242 239 235УРОК