Составить программу вычисления суммы для любого натурального числа n
и вычислить ее для n=12:

Pascal ABC =program test;uses crt;varS,n:real;begintextcolor(11);writeln('Введите натуральное n число: ');readln(n);if n>0 thenS:=n/n+1 elsewriteln('Вы вели не натуральное число');writeln('Ответ: ', S);end.