Составить программу в паскаль. высота столба равна h. улитка за день поднимется вверх на х единиц. за ночь спускается на y единиц. высота за сутки равна i. за сколько дней улитка поднимется до конца? заранее !

Program we
Var x,y,I,h,a,count:integer
begin
readln(x)
Readln (y)
Readln(h)
I:=0
Count:=0
Repeat
Count:=count+1
I:=I+x-y
Until I>=h
Written ('за ',сount', дней улитка поднимется до конца ')
End