Помогите пж, не желею 10 пкт

6/13*(-5/1)=

Помогите!
решите с пояснением:




Из двух городов, расстояние между которыми 400км., одновременно навстречу друг другу выехали легковой автомобиль и рейсовый автобус. Через какое время они встретятся, если скорость автомобиля 96км/ч., а скорость автобуса составляет 2/3 скорости автомобиля?

помогите, программа не работает, нужно разложить 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.
где ошибка!!!!????

делителем 5240; л. 27000-380 делится на 10; с. 93*75000*8 кратно 1000; ч. 14300+70ьделится на 100; о. 100 не кратно 500 2) е. 58134 кратно 2; н. 932+728 не кратно 2; р. 31*870*9 делится на 5; п. 2 является делителем 60000; у. 2756-971 не делится на 2; ч. 5 не является делителем 2305.