Два бегуна тренируются на кольцевой дорожке легкоатлетического стадиона длиной 400 метров. Они начинают бег из одной точки и бегают по заданиям тренера указанное число минут с указанной скоростью (под скоростью понимается количество метров, которое спортсмен пробегает по дорожке  за минуту). Требуется определить расстояние, на котором окажутся бегуны друг от друга в конце тренировки (расстоянием называется длина более короткой части дуги дорожки между спортсменами).

var  t,v1,v2,x:integer;beginwrite('Длительность тренировки в мин.: ');readln(t);write('Скорость 1-го и 2-го (в м/мин): ');readln(v1,v2);x:=abs(v1-v2)*t;x:=x mod 400;if x>200 then x:=400-x;writeln('Расстояние между ними в конце тренировки: ',x)end.