с информатикой паскаль)

1.вычислить сумму, введенных с клавиатуры чисел до первого отрицательного

2.вычислить сумму прогрессии S=2+4+6+8+...20

3.вычислить сумму N членов геометрической прогрессии S=1+2+4+6+8+...

Var 
a: array[1..100] of integer; 
i, j, c: integer;
begin 
Writeln('Массив '); 
for i := 1 to 100 do  begin   
a[i] := random(201) - 100;   
write(a[i], ' '); 
end; 
Writeln; 
write('Введите число (от -100 до 100) '); 
Readln(j); 
for i := 1 to 100 do    
if a[i] = j then begin c := c + 1; write(i, ' '); end; 
Writeln;   
if c>1 then write('В массиве число введённое вами есть в массиве и даже несколько (', c, '). Их индексы представлены выше') else  if c = 1 then write('Число, которое вы ввели есть в массиве. Его индекс представлен выше') else write('Такого числа в массиве нет');  
end.

#include<bits/stdc++.h>

using namespace std;

int main(){

int n,m,k;

cin>>n>>m>>k;

if(k==m*n-1){

   cout<<"IMPOSSIBLE";

   return 0;

}

char a[n][m];

for(int i = 0; i<n; i++){

   for(int j = 0; j<m; j++){

       if(k>0){

           a[i][j]='U';

           k--;

           cout<<'U';

       } else if((a[i-1][j]=='U' || i==0) && i==n-1 && j!=m-1){

           cout<<'R';

       } else if((a[i-1][j]=='U' || i==0) && i==n-1 && j==m-1){

           a[i][j] = 'L';

           cout<<'L';

       } else if(i==n-1 && a[i-1][j]!='U') {

           cout<<'U';

       } else {

           cout<<'D';

       }

   }

   cout<<endl;

}

return 0;

}

Объяснение

код написан на языке с++;

есть 5 случаев которые приведены в картинках ниже + случай когда n*m-1=k выводит Impossible