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

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

Код:

program school7;

Var a:Integer;

begin

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

ReadLn(a);

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

end.