Потребовалось кодировать больше символов, чем позволяла однобайтовая кодировка.
110010(2) = (0+2^1+2^4+2^5)(10) = 2+16+32 = 50(10)
1001(2) = (1+2^3)(10) = 9(10)
Всего 59
61 в десят + х =3004 в дес
х = 3004 - 61 = 2943
Var
A,B,C:char;
Begin
WriteLn('Введи первый символ');
ReadLn(C);
WriteLn('Введи второй символ');
ReadLn(A);
WriteLn('Введи третий символ');
ReadLn(B);
if (Ord(A)*Ord(B)) mod Ord(C) = 0 then WriteLn('Верно')
else WriteLn('Не верно')
End.