Он задумывает два натуральных числа Х и У (Х,У≤1000), а Катя должна их отгадать. Для этого Петя даёт две подсказки. Он называет сумму этих чисел S и их произведение Р. Помогите Кате отгадать задуманные Петей числа.

Program gt;
var x1,x2,y1,y2,s,p:integer;
begin
read(s,p);
y1:=(s+round(sqrt(s*s-4*p)))div 2;
y2:=(s-round(sqrt(s*s-4*p)))div 2;
x1:=s-y1;
x2:=s-y2;
writeln(x1, ,y1);
writeln(x2, ,y2);
end.