В теме информатика никто не помогает

помогите, программа не работает, нужно разложить 4-хзначное число на цифры

var a, a1, a2, a3, a4:integer;

begin

write ('vv ch') ;

read (a) ;

a1: = a/1000;

a2: = a/100 mod 10;

a3: = a/10 mod 10;

a4: = a mod 10;

write (a1, a2, a3, a4) ;

end.

где ошибка?!

Во-первых ты объявил переменные a1, a2 и т. д. как целые, а для целых чисел в паскале не определена операция "/" - деления. Для них определена операция div - целочисленное деление, вот собственно и все, если заменить то твой код работает:

var a, a1, a2, a3, a4:integer;

begin

write ('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.