Використовуй підпрограму

Обчислити суму і добуток N пар заданих дійсних чисел, скориставшись підпрограмою SumDob для обчислення суми і добутку двох дійсних чисел.

Вхідні дані

У першому рядку задано натуральне число N - кількість пар чисел. У наступних N рядках через пропуск задано по 2 дісних числа. Всі вхідні дані по модулю не перевищують 100.

Вихідні дані

У N рядках вивести через пропуск по два числа: спочатку суму, а потім добуток чергової пари чисел. Результат виводити з точністю 4знаки після десяткової крапки.

Вхідні дані

2

6 7.5

2.1 2.0

Вихідні дані

13.5000 45.0000

4.1000 4.2000

Пояснення: Дозволяється використовувати 2 підпрограми, для знахождення суми і добутку відповідно кожну окремо.

program s_d;

var a,b,s,d : real;

n,i : integer;

f1,f2 : text;

procedure Sum(var a,b,s : real);

begin

s:=a+b;

end;

procedure Dob(var a,b,d : real);

begin

d:=a*b;

end;

BEGIN

assign (f1,'input.txt');reset (f1);

assign (f2,'output.txt'); rewrite (f2);

readln (f1,n); i:=1;

while i<=n do

begin

read (f1,a,b);

s:=0;

d:=1;

Sum(a,b,s); Dob(a,b,d);

writeln (f2,s:0:4,' ',d:0:4); i:=i+1;

end;

close (f1);

close (f2);

END.