Дано число, проверить сколько раз в него вмещается цифра 7.(Можно блок

Задание обозначено некоректно. Полагаюсь, вы имели в виду, сколько раз в данное число можно вместить 7,то есть, сколько целых раз можно поделить на 7.

Код:

program school7;

Var a:Integer;

begin

Write('Введите числоgt;gt; ');

ReadLn(a);

Write('В число ', a, ' цифра 7 вмещается ', int(a/7), ' раз(а)');

end.