Напишите программу,которая вычисляет сумму:
а)первых n натуральных чисел;
б)квадратов первых n натуральных чисел  

Решение на паскале:а)var sum,i,n: int64;BEGINwriteln('Введите N');readln(n);for i := 1 to n dosum := sum + i; // можно написать так inc(sum, i);writeln('Сумма первых ', n, ' натуральных чисел = ', sum);END.б)var sum,i,n: int64;BEGINwriteln('Введите N');readln(n);for i := 1 to n dosum := sum + sqr(i); writeln('Сумма квадратов первых ', n, ' натуральных чисел = ', sum);END.