Просто перебираем все возможные x и y.
Free Pascal Compiler version 3.0.2
var x, y, S, P: integer;
begin
readln(S, P);
for x := 1 to 1000 do
for y := 1 to 1000 do
if (x + y = S) and (x * y = P) then
writeln(x, ' ', y);
end.
Пример ввода:
99 1458
Пример вывода:
18 81
81 18