Turbo Pascal. Примеры выполнения задач_5 / V41 / V41_N3

Program V41_N3;
uses crt;
var
 S  :string[6];
BEGIN
 clrscr;
 write('‚ўҐ¤ЁвҐ б«®ў® Ё§ 6-вЁ ЎгЄў: ');
 readln(S);
 if pos('а®',S)=0 then writeln('‘«®Ј  "а®" - ­Ґв!!!')
                  else writeln('‘«®Ј "а®" - Ґбвм!!!');
 readln;
END.