Cделать на языке паскаль
Улитка за день залезает вверх по дереву на V м, а за ночь спускается на U м. Высота дерева H м. За сколько дней D улитка поднимется на вершину дерева?

Предыдущий
вопрос Следующий
вопрос

program SnailClimb;
var
V, U, H, D, day, total: integer;
begin
writeln('Enter the height of the tree (H):');
readln(H);

writeln('Enter the distance climbed during the day (V):');
readln(V);

writeln('Enter the distance slid down during the night (U):');
readln(U);

day := 0;
total := 0;

repeat
day := day + 1;
total := total + V;

until false;

writeln('The snail will climb to the top in ', day, ' days.');

end.