Дано натуральное число N. Выяснить, входит ли цифра 7 в запись числа N2.( решение в паскале) Помогите буду очень благодарна

1 символ = 1 бит
=>
8 бит = 1 байт

Program n1;
var n: integer;
begin
readln(n);
if n mod 12 = 0 then writeln('надо вынести ', n div 12, ' ведер') 
else writeln('надо вынести ', (n div 12)+1, ' ведер');
end.

MS DOS QBasic 1.0

CLS
INPUT "a,b,n "; a, b, n
s = n * (a * 100 + b)
PRINT s \ 100; "rub"; s MOD 100; "kop"

Пример
a,b,n ? 18,45,16
 295 rub 20 kop

Var
  n,i,k,d:integer;
begin
  Write('Количество чисел='); Read(n);
  k:=0;
  Writeln('Вводите числа, после каждого числа нажимайте Enter');
  for i:=1 to n do begin
    Read(d);
    if (d mod 3 = 0) and (d mod 10 = 5) then Inc(k)
  end;
  Writeln('Количество чисел, удовлетворяющих условию, равно ',k)
end.

Тестовое решение:
Количество чисел=8
Вводите числа, после каждого числа нажимайте Enter
537
125
5
35
999
3
1005
75
Количество чисел, удовлетворяющих условию, равно 2