Var lc:real;
Begin
write('Кол-во лошадиных сил = ');
readln(lc);
write(lc * 0.735);
End.
ответ: copyright (копирайт).
1) загоняем синий шарик в нишу
2) прогоняем мимо него все красные направо
3) выкатываем его из ниши и вытаскиваем его из жолоба
4) иди к п 1)