[The Shadow]

Код:

var
  s, z1, z2: integer;
  p: real;
begin
  // вводим s, p
  z2:=trunc(s / (1 + p));
  z1:=s - z2;
  if Abs(z1 / z2 - p) > Abs((z1 - 1) / (z2 + 1) - p) then
  begin
    inc(z2);
    dec(z1);
  end;
  // вывод z1, z2
end.