===== PascalABC.NET =====
begin
var (a, b) := ReadReal2;
var (x, y) := (Sqrt(a), Sqrt(b));
Println('Сумма и произведение корней:', x + y, x * y);
(x, y) := (a*a, b*b);
Print('Частное и разность квадратов:', x/y, x - y)
end.
===== PascalABC.NET =====
begin
var (a, b) := ReadReal2;
var (x, y) := (Sqrt(a), Sqrt(b));
Println('Сумма и произведение корней:', x + y, x * y);
(x, y) := (a*a, b*b);
Print('Частное и разность квадратов:', x/y, x - y)
end.