ПОМОГИТЕ ПЛИЗ!!! Безотлагательно Отыскать оплошности в программеprogramm v3;VAR n,a,b,c: real;BEGINwrite(039;n

ПОМОГИТЕ ПЛИЗ!!! Безотлагательно
Найти оплошности в программе

programm v3;

VAR n,a,b,c: real;

BEGIN

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

a:= n div 100;

b:= n div 10;

c:= n mod 10;

if a*b*c lt; 10

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

else writeln('творение меньше либо одинаково 10');

END.