Даны три символа. Верно ли, что произведение двух первых символов кратно коду третьего символа.

VarA,B,C:char;BeginWriteLn('Введи первый символ');ReadLn(C);WriteLn('Введи второй символ');ReadLn(A);WriteLn('Введи третий символ');ReadLn(B);if (Ord(A)*Ord(B)) mod Ord(C) = 0 then WriteLn('Верно')else WriteLn('Не верно')End.