Дано трехзначное число. проверить истинность высказывания "цифра, расположенная в середине числа, равна произведению двух крайних цифр" нужна программа!

Var  q1,q2,q3,n:integer;beginwrite('Введите трехзначное число n ');read(n);q3:= n mod 10;q2:= n div 10;q2:= q2 mod 10;q1:= n div 100;writeln(q1:4,q2:4,q3:4);if q2 = q1*q3 thenwrite('Цифра, расположенная в середине числа, равна произведению двух крайних цифр')elsewrite('Цифра, расположенная в середине числа, не равна произведению двух крайних цифр');end.