В теме информатика никто не помогаетпомогите, программа не работает, нужно…

Во-первых ты объявил переменные a1,a2 и т.д. как целые, а для целых чисел в паскале не определена операция "/" — деления. Для них определена операция div — целочисленное деление, вот собственно и все, если заменить то твой код работает: var a,a1,a2,a3,a4: integer; beginwrite ('vv ch'); read (a); a1: =a div 1000; a2: =a div 100 mod 10; a3: =a div 10 mod 10; a4: =a mod 10; write (a1,a2,a3,a4); end.