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.