Информатика 11 класс. 11 баллов!!!!

Запишите свое имя латинскими буквами и:
1) зашифровать свое имя откр ключом 2) расшифровать свое имя закр ключом

Имя: Alina

Pascal: 1) const n = 10; var a: array [1..n] of integer;       i: integer; begin   randomize;   for i: =1 to n do     begin     a[i]: =random(21)-10;     write (a[i]: 3);     end;   writeln;   for i: =1 to n do     begin     if a[i]> 0 then a[i]: =99;     write (a[i]: 3);     end;   writeln; end. 2) const n = 10; var a: array [1..n] of integer;       p,s,i: longint; begin   p: =1;   s: =0;   randomize;   for i: =1 to n do     begin     a[i]: =random(21)-10;     if a[i]> 0 then p: =p*a[i] else       if a[i]< 0 then s: =s+a[i];     write(a[i]: 3);     end;   writeln;   writeln ('proizvedenie: ',p);   writeln ('summa: ',s); end. c++: 1) #include < iostream> #include < ctime> #include < cstdlib> using namespace std; int main() {   int a[10];   srand (time(null));   for (int i = 0; i< 10; i++)   {     a[i] = rand()%20-10;     cout < < a[i] < < " ";     if (a[i]> 0)       a[i] = 99;   }   cout < < endl;   for (int i = 0; i< 10; i++)     cout < < a[i] < < " ";   cout < < endl;   return 0; } 2) #include < iostream> #include < ctime> #include < cstdlib> using namespace std; int main() {   int a[10];   int p = 1,s = 0;   srand (time(null));   for (int i = 0; i< 10; i++)   {     a[i] = rand()%20-10;     cout < < a[i] < < " ";     if (a[i]> 0)       p*=a[i];     else if (a[i]< 0) s+=a[i];   }   cout < < endl;   cout < < "summa: " < < s < < endl           < < "proizvedenie: " < < p < < endl;   return 0; }