Написать программу в паскале для 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;beginwrite(\'n= \'); readln (n); // ввод числа ns:= 0; // начальное значение суммы sp:= 1; // начальное значение произведения pfor i: integer:= 1 to n dobegins:= s + sqrt(i); // добавление к имеющемуся значению s корня из числа ip:= p * (1 / i); // умножение имеющегося произведения на (1/i)end;writeln(\'p = \', p : 10 : 8, \' s = \', s : 10 : 8) // вывод результатаend.