1)дано целое число N(больше 0). Отыскать сумму 1+1/2+1/3.....1/N(вещественное число). Входные данные:

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