Вчем ошибка?
var k, p, s, n : integer;
l: real;
begin
read (k);
read (p);
read (s);
l = (k + 100) * k / 100;
n: = s div l;
write (n);
end.

mamka18    3   25.09.2019 21:59    0