Даю 30 баллов. Напишите, пожалуйста, на Паскале
полная программа с выводом на экран? или просто алгоритм нужен?
var
a,b,c:real;
begin
read(a);
read(b);
read(c);
writeln('Сумма чисел = ',(a+b+c));
writeln('Сумма обратных чисел = ',((1/a)+(1/b)+(1/c)));
end.