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

Var a: real;           n: integer; begin readln(n); a: =(1+n)*n/2; writeln(a); end.

Объяснение:

аьтаосдсьчт636846т69989=7=7=49497572644%477шоплаьаатсоплояояьяьчьвлцдыллыьыьылвьвьвьвълвововлвооы до т6лрсооо555454647-꒰⑅ᵕ༚ᵕ꒱˖♡꒰⑅ᵕ༚ᵕ꒱˖♡꒰⑅ᵕ༚ᵕ꒱˖♡(´∩｡• ᵕ •｡∩`) (*＾3＾)/～♡♡(> ਊ <)♡( ˘ ³˘)♥(〃ﾟ3ﾟ〃)(◕દ◕)( ˘ ³˘)♥(●’3)♡(ε`●)(*＾3＾)/～♡(●’3)♡(ε`●)(*＾3＾)/～♡(●’3)♡(ε`●)(*＾3＾)/～♡(●’3)♡(ε`●)(●’3)♡(ε`●)(/^-^(^ ^*)/(●’3)♡(ε`●)(●’3)♡(ε`●)(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(●’3)♡(ε`●)(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)(っ˘з(˘⌣˘ )(●’3)♡(ε`●)надеюсь

Const

    n = 12;

var

    i, p: integer;

    a: array[1..n] of integer;

begin

    p := 1;

    for i := 1 to n do

    begin

        a[i] := random(150) - 100;

        write(a[i], ' ');

        if a[i] > 0 then p := p * a[i];

    end;

    writeln;

    writeln('P = ', p);

end.

2)uses crt;

var a:array [1..10] of integer;

i:integer;

begin

clrscr;

randomize;

{генерируем и выводим новый массив}

for i:=1 to 10 do

begin

a[i]:=random(9)+1;

write(a[i]:3);

end;

writeln;

{в цикле проверяем если счетчик i делится на 2 ( признак четности) то либо возводим в степень либо удваиваем}

for i:=1 to 10 do

begin

if (i mod 2=0 ) then a[i]:=a[i]*a[i]

else a[i]:=a[i]*2;

end;

{выводим конечный массив}

for i:=1 to 10 do

write(a[i]:3);

readkey;

end.

3)var arr:array[1..20] of integer;

max,q:integer;

begin

writeln ('ARRAY: ');

for q:=1 to 20 do

begin

arr[q]:=random(80);

write (arr[q]:3);

end;

max:=arr[1];

for q:=2 to 20 do

if arr[q]>max then max:=arr[q];

writeln;

writeln('MAX = ',max);

end.