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

program zz1;

var s, n, k, p:integer; / / задаем переменные целого типа

begin

write (' введите трехзначное число ');

read (n); / / вводим с клавиатуры число

k:=n mod 10; / /получаем последнюю цифру

s:=n div 100; / /получаем первую цифру

p: = (n div 10) mod 10; / / получаем среднюю цифру

if ((p + k + s) >9) and ((p + k + s) <100) then writeln (' сумма цифр является двухзначным числом ') else writeln (' сумма цифр не является двухзначным числом ');

if ((p * k * s) >99) and ((p * k * s) <1000) then writeln (' произведение цифр является трехзначным числом ') else writeln (' произведение цифр не является трехзначным числом ');

if ((p + k + s) mod 3 = 0) then writeln (' сумма цифр кратно 3 ') else writeln (' сумма цифр не кратно 3 ');

end.