Прикладные программы для выполнения на компьютере конкретных что это? : d

Прикладные программы это приложения!

Var s: string;       n,k: integer; begin   n: =1; k: =0;   write('строка: ');   readln(s);   while n> 0 do   begin       n: =pos('ба',s);       if (n> 0) then       begin           k: =k+1;           s[n]: ='р';           s[n+1]: ='о';       end;   end;   if k> 0 then writeln('новая строка: ',s)   else writeln('нет слога "ба" '); end. строка: большой баобаб новая строка: большой роороб

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