Дано трехзначное число. Определить, является ли произведение цифр числа a меньше самого числа a (Паскаль)

program Chernovik;

var a: integer;

begin

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

readln (a);

if a > ((a mod 10) * (a div 100) * (a div 10 mod 10))

then write ((a mod 10) * (a div 100) * (a div 10 mod 10), ' < ',a)

else write ((a mod 10) * (a div 100) * (a div 10 mod 10),' >= ',a)

end.

a mod 10 - последняя цифра трёхзначного числа

a div 100 - первая цифра трёхзначного числа

a div 10 mod 10 - средняя цифра трёхзначного числа

div - целочисленное деление

mod - остаток от целочисленного деления