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

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.