Var t,v1,v2,x:integer; begin write('Длительность тренировки в мин.: '); 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) <span>end.</span>