//9. Вы стоите на краю дороги 
//от вас до ближайшего фонарного столба x метров. 
//Расстояние между столбами y метров. 
//На каком расстоянии от вас находится n-й столб?
//Длина вашего шага z метров. 
//Мимо скольких столбов вы пройдете, сделав n шагов.
program stolbi;
var
x,y,r,n,z:real;
n: integer;
begin
write ('введите расстояние до ближайшего столба: ');
readln (x);
write ('введите расстояние между столбами: ');
readln (y);
write ('введите длину Вашего шага: ');
readln (z);
write ('введите количество шагов: ');
readln (n);
r:=n*z;
write ('сделав n шагов Вы пройдете мимо стольки столбов: ', trunc ((r-x)/4+1));
 end.
 

Ly85LiDQktGLINGB0YLQvtC40YLQtSDQvdCwINC60YDQsNGOINC00L7RgNC+0LPQuCAKLy/QvtGCINCy0LDRgSDQtNC+INCx0LvQuNC20LDQudGI0LXQs9C+INGE0L7QvdCw0YDQvdC+0LPQviDRgdGC0L7Qu9Cx0LAgeCDQvNC10YLRgNC+0LIuIAovL9Cg0LDRgdGB0YLQvtGP0L3QuNC1INC80LXQttC00YMg0YHRgtC+0LvQsdCw0LzQuCB5INC80LXRgtGA0L7Qsi4gCi8v0J3QsCDQutCw0LrQvtC8INGA0LDRgdGB0YLQvtGP0L3QuNC4INC+0YIg0LLQsNGBINC90LDRhdC+0LTQuNGC0YHRjyBuLdC5INGB0YLQvtC70LE/Ci8v0JTQu9C40L3QsCDQstCw0YjQtdCz0L4g0YjQsNCz0LAgeiDQvNC10YLRgNC+0LIuIAovL9Cc0LjQvNC+INGB0LrQvtC70YzQutC40YUg0YHRgtC+0LvQsdC+0LIg0LLRiyDQv9GA0L7QudC00LXRgtC1LCDRgdC00LXQu9Cw0LIgbiDRiNCw0LPQvtCyLgpwcm9ncmFtIHN0b2xiaTsKdmFyCngseSxyLG4sejpyZWFsOwpuOiBpbnRlZ2VyOwpiZWdpbgp3cml0ZSAoJ9Cy0LLQtdC00LjRgtC1INGA0LDRgdGB0YLQvtGP0L3QuNC1INC00L4g0LHQu9C40LbQsNC50YjQtdCz0L4g0YHRgtC+0LvQsdCwOiAnKTsKcmVhZGxuICh4KTsKd3JpdGUgKCfQstCy0LXQtNC40YLQtSDRgNCw0YHRgdGC0L7Rj9C90LjQtSDQvNC10LbQtNGDINGB0YLQvtC70LHQsNC80Lg6ICcpOwpyZWFkbG4gKHkpOwp3cml0ZSAoJ9Cy0LLQtdC00LjRgtC1INC00LvQuNC90YMg0JLQsNGI0LXQs9C+INGI0LDQs9CwOiAnKTsKcmVhZGxuICh6KTsKd3JpdGUgKCfQstCy0LXQtNC40YLQtSDQutC+0LvQuNGH0LXRgdGC0LLQviDRiNCw0LPQvtCyOiAnKTsKcmVhZGxuIChuKTsKcjo9bip6Owp3cml0ZSAoJ9GB0LTQtdC70LDQsiBuINGI0LDQs9C+0LIg0JLRiyDQv9GA0L7QudC00LXRgtC1INC80LjQvNC+INGB0YLQvtC70YzQutC4INGB0YLQvtC70LHQvtCyOiAnLCB0cnVuYyAoKHIteCkvNCsxKSk7CiBlbmQuCiA=