Мальчик может бегать в три раза быстрее, чем ходить. Скорость его ходьбы равна 4 км/ч. Он принял участие в марафонском забеге, но сошел с дистанции, пробежав только Х км. Сколько времени он потратил на преодоление этого расстоя...

program z1; Var v,S:Integer; t:real; Begin v:=12; WriteLn('Известно что мальчик бегает в 3 раза больше чем ходит'); WriteLn('3 км/ч его ходьба, следовательно 12 км/ч его бег'); Write('Введите кол-во километров прбегаемых мальчиков: '); Read(S); t:=S/v; WriteLn('Время потраченое мальчиком на пробежку = ',t,' час(ов)'); end.