Напишите программу ** Pascal

Question

Напишите программу на Pascal

---

Answer 1

Var
    k, p, s: integer;

begin
    readln(k, p, s);
    k := k * (100 + p);
    writeln((100 * s) div k);
end.