Закодируйте любое слово а-192 б-193 в-194 г-195 д-196 и т.д помгите

201 206 213 207 209 205 192 211 201 203 192 - информатика

196197196- дед. легко

Const   n = 10; var   a: array[0..10] of integer;   i, s: integer; begin //заполнение массива сл. числами   for i : = 1 to n do   begin       a[i] : = random(201) - 100;       write(a[i]: 4);   end;   writeln; //1) все элементы не превышающие число 100   writeln('не больше 100 ');   for i : = 1 to n do       if a[i] < = 100 then           write( a[i]: 4);   writeln; // 2) все четные элементы   writeln('кратные двум ');   for i : = 1 to n do       if a[i] mod 2 = 0 then             write( a[i]: 4);   writeln; // 3) все элементы, являющиеся трехзначными числами     writeln('трехзначные ');   for i : = 1 to n do       if (a[i] < -99) or (a[i] > 99) then             write(a[i]: 4);   writeln; // 4) третий, шестой и т.д элементы.   i : = 3;   writeln(' номера 3, 6, 9 и  т.д.');   while i < n do   begin       write(a[i]: 4);       i : = i + 3;   end; end.