по информатике просто так не пиши Бейсик ​

Const n=10; 
var a:array[1..n] of integer;
i,s,min:integer;
begin
writeln('Исходный массив:');
for i:=1 to n do
 begin
 a[i]:=random(21)-10;
 write(a[i]:4);
 end;
writeln;
s:=0; 
min:=a[1];
for i:=1 to n do
 begin
 if a[i]>0 then s:=s+a[i];
 if a[i]<min then min:=a[i];
 end;
writeln('s = ',s,'   min = ',min);
for i:=1 to n do
 if a[i]>0 then a[i]:=s
  else if a[i]<0 then a[i]:=a[i]-min;
writeln('Измененный массив:');
for i:=1 to n do  write(a[i]:4);
writeln;
end.

Пример:
Исходный массив:
   9  -3  -5   7   1   5  -6   9  -8   7
s = 38   min = -8
Измененный массив:
  38   5   3  38  38  38   2  38   0  38

1)

var

   a, n, s: integer;

begin

   write('n = ');

   Readln(n);

   

   a := 1;

   while a <= n do

   begin

       s := s + a;

       a := a + 1;

   end;

   writeln(s);

end.

2)

var

   a, n: integer;

begin

   write('n = ');

   Readln(n);

   a := 1;

   while a <= n do

   begin

       writeln(2 * a);

       a := a + 1;

   end;

end.

3)

var

   a, b: integer;

begin

   write('Введите числа a и b: ');

   Readln(a, b);

   

   while a <= b do

   begin

       writeln(a, '^2 = ', sqr(a));

       a := a + 1;

   end;

end.