program MinSum;

var
A, P, K: Integer;
sum: Real;

begin
A := 10;
P := 1;
sum := 0;

while sum <= A do
begin
sum := 0;
K := 1;

while K <= P do
begin
sum := sum + 1 / K;
K := K + 1;
end;
P := P + 1;

end;

writeln('Минимальное значение P: ', P);
end.