Написать программу в паскале для p=1*1/2*1/3 ... 1/n и s = sqrt (1) + sqrt (1+2) + sqrt (1+3) ... sqrt (1+n)

program ps;

var n: integer;

s, p: real;

begin

write ('n = ');

readln (n); / / ввод числа n

s: = 0; / / начальное значение суммы s

p: = 1; / / начальное значение произведения p

for i: integer: = 1 to n do

begin

s: = s + sqrt (i); / / добавление к имеющемуся значению s корня из числа i

p: = p * (1 / i); / / умножение имеющегося произведения на (1/i)

end;

writeln ('p = ', p : 10 : 8, ' s = ', s : 10 : 8) / / вывод результата

end.