13. Дано число n. Составьте программу для вычисления суммы: s = 1 + 2 + 3 + ... + n.

14. Составьте программу в Gpaph ABC. Нарисовать ряд закрашенных в зеленый цвет кругов радиуса 20 пикселей вдоль верхнего края экрана монитора

16. Составьте программу для вычисления числа n: n = 1∙2∙3∙…∙х. Число Х вводится с клавиатуры.

program summa;var sum:BigInteger;i,n:integer;beginwrite ('n = ');readln(n);  sum:=0;    i:=1;       while i<= n do begin  sum:=sum+i;          i:=i+1;    end;writeln('Sum = ',sum);end.================================program krugi;uses graphabc;var x,y,r:integer;beginsetBrushColor(clGreen);   x:=22; y:=22; r:=20;   while x<660 do    begin     circle(x,y,r);  x:=x+40;        end;end.==============================program factorial;var pr:BigInteger;i,n:integer;beginwrite ('n = ');readln(n);  pr:=1;    i:=1;       while i<= n do begin  pr:=pr*i;          i:=i+1;    end;writeln('Факториал числа n! = ',pr);end.