ПОМОГИТЕ ПЛИЗ!!! СРОЧНО
Найти ошибки в программе

programm v3;

VAR n,a,b,c: real;

BEGIN

write('n -> '); readln(n);

a:= n div 100;

b:= n div 10;

c:= n mod 10;

if a*b*c < 10

then writeln('произведение больше 10');

else writeln('произведение меньше или равно 10');

END.