1. Отыскать s=1+1/2 +1/3 +1/4 ++1/n , n- вводится с клавиатуры

program zz1;
var n,i:integer;s:real;
begin
write(введите данное число n);
read(n); //вводим с клавиатуры заданное число
for i:=1 to n do //перебираем все числа от 1 до n
s:=s+1/i; //очередной элемент ряда добавляем к сумме
write(сумма ряда =,s); //выводим ответ
end.

program zz1;
var n,i:integer;s:real;
begin
write(введите заданное число n);
read(n);//вводим с клавиатуры данное число
for i:=1 to n do//перебираем все числа от 1 до n
s:=s+i;//каждое число добавляем к сумме
write(сумма n чисел =,s); //выводим ответ
end.