Задано масив з 5 цілих чисел перевірте чи є в таблиці число 15 і під яким номером

// На складе было N ящиков мыла, в течение 10 дней со склада отпускали ежедневно K ящиков мыла. Сколько ящиков мыла осталось на складе?

var n,k: real;
begin 
   writeln('Введите количество ящиков мыла завезенных на склад');
  readln (n);
  writeln ('Укажите сколько ящиков мыла ежедневно отпускалось со склада');
  readln (k); 
  n:=n-(10*k);
  If (n<0) then writeln ('Вы ошиблись. На складе не было такого количества мыла')
          else writeln ('Через 10 дней на складе осталось ',n,' ящиков мыла');
end.

Var
  n,d10,d:integer;
begin
  Write('Введите двухзначное число: '); Readln(n);
  d10:=n div 10; d:=n mod 10;
  if ((d10=1) or (d=1)) then begin
    Write('В число входит цифра 1');
    if ((d10=7) or (d=7)) then Writeln(' и цифра 7')
    else Writeln
  end
  else
    if ((d10=7) or (d=7)) then Writeln('В число входит цифра 7')
    else Writeln('В число не входят цифры 1 и 7')
end.

Примеры работы программы:
Введите двухзначное число: 37
В число входит цифра 7

Введите двухзначное число: 15
В число входит цифра 1

Введите двухзначное число: 71
В число входит цифра 1 и цифра 7

Введите двухзначное число: 28
В число не входят цифры 1 и 7