Вкладчик положил в банк некоторую сумму денег n под p процентов годовых. какую сумму денег снимет вкладчик через год? решите напишите по программе pascal

var n,p,s:real;
begin
write('n = ');
readln(n);
write('p = ');
readln(p);
s:=n+n*p/100;
writeln('s = ',s);
end.

Пример:
n = 20000
p = 10
s = 22000

Var A: array [1..10] of integer;                                                                                          i,b: integer;                                                                                                                begin                                                                                                                                for i:=1 to 10 do                                                                                          readln(A[i]); for i:=1 to 10 do begin                                                                                  if A[i]=5 then                                                                                                                       writeln(i,' Строка');                                                                                                            end;                                                                                                                              end.

static void Main(string[] args)

       {

           int N = 0;

           Console.Write("Введите размерность массива: ");

           N = Convert.ToInt32(Console.ReadLine());

           double[,] mas = new double[N, N];

           double sum = 0;

           int viborStroki = 0;

           Console.Write("Введите номер строки: ");

           viborStroki = Convert.ToInt32(Console.ReadLine());

           Random rnd = new Random();

           for(int i = 0; i < N; i++)

           {

               for(int j = 0; j<N; j++)

               {

                   mas[i, j] = rnd.Next(0, 10);

               }

           }

           for (int i = viborStroki - 1; i < viborStroki; i++)

           {

               for(int j = 0; j < N; j++)

               {

                   sum += Math.Pow(mas[i, j], 2);

               }

           }

           Console.WriteLine();

           Console.Write("Массив: ");

           Console.WriteLine();

           for (int i = 0; i < N; i++)

           {

               for (int j = 0; j < N; j++)

               {

                   Console.Write(String.Format("{0,3}", mas[i, j]));

               }

               Console.WriteLine();

           }

           Console.Write("Сумма квадратов элементов {0}-й строки = ", viborStroki);

           Console.Write("{0}", sum);

           Console.ReadKey();

       }

Объяснение:

Вводим размерность массива, вводим номер строки, программа считает сумму квадратов элементов введённой строки.