9. Дано трехзначное число. Определить: а) Является ли сумма его цифр двузначным числом; b) Является ли произведение его цифр трехзначных числом; c) Больше ли числа А произведение его цифр; число А – любое, оно вводится с клавиатуры; d) Кратна ли пяти сумма его цифр; e) Кратна ли сумма его цифр числу А; число А – любое, оно вводится с клавиатуры; Числа вводить, пока не будет введён нуль.Блок-схему и программу. Пожалуйста :)

Программа Вот:
Program z1;Var a,b,c,d,k:integer;BeginWriteln(Введите трехзначное число);REadln(a);While a0 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 раза, если не устраевает, можете воспользоваться другими ресурсами