Ввести натуральное число n и найти сумму всех чисел от 1 до n ( 1+2+3+ +n) в кумире

Как-то так алг нач цел н ввод н вывод н * (н + 1) / 2 кон

Program programma; uses crt; var i: integer;       a: array[1..10] of real; begin clrscr;           randomize;           for i: =1 to 8 do           begin           a[i] : = random *1+20;           write(a[i]: 7: 3);           end;           writeln;           writeln;           for i: =8 downto 1 do           writeln(a[i]: 7: 3);           readln; end.

var x1,y1,x2,y2,x3,y3,x4,y4: integer;

n1,n2: real;

begin

writeln('введите координаты первой точки - ');

readln(x1,y1);

writeln('введите координаты второй точки - ');

readln(x2,y2);

writeln('введите координаты третьей точки - ');

readln(x3,y3);

writeln('введите координаты четвертой точки - ');

readln(x3,y3);

n1: = sqrt( (x3-x1) * (x3-x1) + (y3 - y1) * (y3-y1) );

n2: = sqrt( (x4-x2) * (x4-x2) + (y4 - y2) * (y4-y2) );

writeln('длина первой диагонали - ',n1);

writeln('длина второй диагонали - ',n2);

readln;

end.

держи.