Дано целое число. Верно ли, что оно кратно 7 и содержит 3цифры? составьте программу и...

Question

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

Answer 1

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