Задание указано некоректно. Надеюсь, вы имели в виду, сколько раз в заданное число можно вместить 7,то есть, сколько целых раз можно поделить на 7.
Код:
program school7;
Var a:Integer;
begin
Write('Введите число>> ');
ReadLn(a);
Write('В число ', a, ' цифра 7 вмещается ', int(a/7), ' раз(а)');
end.
Для рисования прямоугольника есть специальная функция.
rectangle(x1,y1,x2,y2);
x1,y1 - координаты левой, верхней вершины.
x2,y2 - координаты правой, нижней вершины.
Пример в приложении.
Избыточность<span> — термин из </span>теории информации<span>, означающий превышение </span>количества информации<span>, используемой для передачи или хранения сообщения, над его </span>информационной энтропией<span>. Для уменьшения избыточности применяется </span>сжатие данных без потерь<span>, в то же время </span>контрольная сумма<span> применяется для внесения дополнительной избыточности в поток, что позволяет производить исправление ошибок при передаче информации по каналам, вносящим искажения (спутниковая трансляция, беспроводная передача
</span>