Найти все трехзначные числа, кратные семи и у которых сумма цифр также кратна семи.В программе запрещено использовать оператор выбора case, оператор цикла

Var
  a, b, c, d: real;
begin
  write('Введите коэффициенты a,b,c ');
  readln(a, b, c);
  d := sqr(b) - 4 * a * c;
  if d = 0 then
    writeln('Корень один x = ', (-b / (2 * a))
    else if d >0 then
      writeln('x1 = ',(-b + sqrt(d)) / (2 * a), ' x2 = ',(-b - sqrt(d)) / (2 * a))
    else writeln('Действительных корней нет');
end.

Тест №1

Введите коэффициенты a,b,c 1 -5 6
x1 = 3 x2 = 2

Тест №2

Введите коэффициенты a,b,c 1 2 3
Действительных корней нет

Тест №3

Введите коэффициенты a,b,c 1 0 0
Корень один x = 0

Выходными данными компьютера является чек и сдача(если она требуется).
Арифметические действия: из количество денег, что дал покупатель нужно отнять сумму всех купленных товаров и таким образом найти нужную сдачу.
Например: входные данные: кол-во введенных денег = 100 руб.
сумма цены товаров = (10 руб. + 21 руб + 37.21 руб.)
100 руб. - (10 руб. + 21 руб + 37.21 руб.) = 100 руб. - 68,21 руб. = 31,79.
В данном случае в чеке будет указана введенное количество денег и сумма всех купленных товаров. Сдача в этом примере будет  = 31,79.

*кол-во это количество.