Дано трехзначное число определить является ли сумма его цифр двухзначным числом ,является ли произведение его чисел трехзначным числом, кратно ли сумма его цифр числу 3

Var 
a,sum,pro:integer;
Begin 
write(Введите трёхзначное положительное число: ); 
readln(a); 
if (a999) then write(Это не трёхзначное число. Перезапустите программу!) else Begin   
sum:= a mod 10 + a div 10 mod 10 + a div 100;   
pro:= a mod 10 * a div 10 mod 10 * a div 100;   
if (sum>9) and (sumif (pro>99) and (proif (sum mod 3) = 0 then write(Эта же сумма (,sum,) кратна трём) else write(Эта сумма (,sum,) не кратна трём); 
end;
End.