Ручка стоила k рублей стоимость ручки повысилась на 10%. сколько ручек купишь за s рублей

Var k,p,s: integer;
var z: real:
begin
read (k);
read (p);
read (s);
p:=100+p;
z:=p/100;
z:=k*z;
writeln (int(s/z))
end.