Дано шестизначное число. Найти произведение последних четырёх его цифр.

Program chislo;var ch,pr,so,s:integer;beginpr:=1;writeln(Введите шестизначное число);readln(ch);so:=ch mod 10000;pr:=so div 1000;pr:=pr*(so mod 10);pr:=pr*((so mod 100)div 10);pr:=pr*((so mod 1000)div 100);writeln(Произведение первых 4 чисел=,pr)end.

6:4=6
вот мой ответ
я думаю правильно