Дано трехзначное число. Определить:a) является ли сумма его цифр двузначным числом; б) является ли произведение его цифр трехзначным числом; в) больше ли числа А произведение его цифр; г) кратна ли пяти сумма его цифр; д) кратна ли сумма его цифр числу А.

uses crt;
var a,b,c,n,x,t,y : integer;
begin
 clrscr;
 write('n = ');
 readln(n);
 write('a = ');
 readln(a);
 c := n div 100;
 b := n div 10 mod 10;
 x := n mod 10;
 t := c + b + x;
 y := c * b * x;
 
 if (t > 9) and (t < 100) then
  writeln('Сумма цифр является двузначное число')
 else
  writeln('Не является двухзначным числом');
 
 if (y > 99) and (y < 1000) then
  writeln('Произведение является трехзначным числом')
 else
  writeln('Не является трехзначным числом');
 
 if (y > a) then
  writeln('А  больше произведение цифр числа')
 else
  writeln('А не больше произведение цифр числа');
 
 if (t mod 5 = 0) then
  writeln('Сумма  кратна 5')
 else
  writeln('Сумма не кратна 5');
 
 if (t mod t = 0) then
  writeln('Сумма цифр кратна числу A')
 else
  writeln('Сумма цифр не кратна числу A');
 
 readln;
end.