Uses
CRT;
Var
n,a,b,c,k,l,sum:integer;
pr:real;
begin
ClrScr;
repeat
readln(n);
until (n<1000) and (n>=100);
a:=n div 100;
c:=(n div 10) mod 10;
b:=n mod 10;
sum:=a+b+c;
writeln('Sum:=',sum);
//(*a) Является ли сумма его двухзначным числом*)
if (sum>=10) and (sum<=99) then
writeln('Да, двухзначное число')
else writeln('Не двухзначное число');
//(*b) Является ли произведение его цифр трехзначным числом *)
pr:=a*b*c;
writeln('Pr:=',pr);
if (pr>=100) and (pr<=999) then
writeln('Да, трехзначное число')
else writeln('Не, трехзначное число');
//(*c) Больше ли числа А произведение его цифр*)
write('Введите k:=');
readln(k);
if (pr>k) then
writeln('Произведение',pr,'>',k)
else writeln('Произведение ',pr,'<',k);
//(*d) Кратна ли пяти сумма его цифр *)
if sum mod 5=0 then
writeln('Сумма ',sum,' кратна ',5)
else writeln('Сумма ',sum,' не кратна ',5);
//(*e) Кратна ли сумма его цифр числу А.*)
write('Введите k:=');
readln(k);
if sum mod k=0 then
writeln('Сумма ',sum,' кратна ',k)
else writeln('Сумма ',sum,' не кратна ',k);
write('Введите k:=');
readkey
end.