Объяснение:
во вложениях.....
^ у меня не ставится, но выполняет свои действия, у себя его ставьте!
Блокнот это как я файл в нём хранится определённая информация
С
такое сокращение
здесь должы быть символы
var
i,n:integer;
s:real;
begin
repeat
write ('N = ');readln(n);
until (n>0);
s:=0;
for i:=1 to n do s:=s+1/i;
writeln ('S = ',s:0:4);
readln;
end.