Дано целое число. Верно ли, что оно кратно 7 и содержит 3цифры? составьте программу и проверьте ее для указанных чисел сравнив результат работы программы с правильном результатом..
число                       правильный ответ 
21                                неверно
121                                неверно
777                                верно
-777                              верно
ТОЛЬКО ПРОГРАММУ НАПИСАТЬ!

var a:integer;beginwriteln('Введите число');readln(a);if a<0 then a:=(-1)*a;if (a mod 7 =0) and (a div 100>1)then writeln('Верно')else writeln('Неверно');end.