Космические пираты охотятся за твоим кораблем. пошли шифрованное донесение на командный пункт. в донесении сообщи, когда и на какую планету ты совершишь посадку шифрования выбери сам. !

Укьэмыц1 решай сама впрооропропамвулл

Программа Вот:
Program z1;Var a,b,c,d,k:integer;BeginWriteln('Введите трехзначное число');REadln(a);While a<>0 do beginWriteln('Введите трехзначное число');REadln(a);b:=a div 100 mod 10;c:=a div 10 mod 10;d:=a mod 10;if b+c+d div 10 >0 then writeln('Сумма цифр- двузначное число') else writeln ('Нет, сумма цифр не двузначное число');if b*C*D div 100 >0 then writeln('Произведение цифр- терхзначное число') else writeln ('Нет, произведение цифр не трехзначное число число');Writeln ('Введите любое число');Readln (k);If b*c*d>k then writeln('Произведение цифр больше числа') else writeln('Произведение меньше числа');if B+c+d div 5 =0 then writeln('Сумма цифр числа кратна 5') else writeln ('Сумма цифр не кратна 5');if B+c+d div k =0 then writeln('Сумма цифр числа кратна числу, введенному с клавиатуры') else writeln ('Сумма цифр не кратна числу, введенному с клавиатуры');End;End. 
Есть маленькая проблема в начале, не помню как прописывать, поэтому число первый раз нужно вводить 2 раза, если не устраевает, можете воспользоваться другими ресурсами  

1. Определим производительность каждого принтера, т.е. какую часть грамоты он отпечатает за 1 минуту.
1-й: 1/5, 2-й: 1/7, 3-й: 1/9.
2. Работая вместе, все три принтера напечатают за минуту 1/5+1/7+1/9=
143/315 часть грамоты.
3. Определим время, которое понадобится чтобы сделать всю работу
2018/(143/315) ≈ 4445 мин.
4. Определим, сколько грамот напечатает за это время каждый принтер.
1-й: 4445/5 = 889, 2-й: 4445/7 = 635, 3-й: 4445/9 = 493.8.
5. Поскольку 3-й принтер не успевает напечатать одну грамоту, поправим время работы: 494х9 = 4446 мин.
6. Проверка. 889+635+494 = 2018.

ответ: 4446 мин или 3 суток 2 часа 6 минут