Написать программу нахождения разности произведения и суммы натурального ряда чисел от одного до n. На языке Pascal.

Program ;Var I,N,S,R,P:integer;Begin Repeat Write('Введите число для натурального ряда:'); Readln(N); Until N > 0; For I:= 1 to N do S:= S + I; Writeln('Сумма чисел:',S); P:= 1; For I:= 1 to N do P:= P * I; Writeln('Произведение чисел:',P); R:= P - S; Writeln('Разность чисел:',R);end.