Як називається програма для обміну даними між комп'ютерами?

Флешка блин, или диск какой нибудь.

Var s: string;     i: integer; begin   write('строка: ');   readln(s);   i: =1;   repeat     if s[i] in ['0'..'9'] then      begin       i: =i+1;       insert('0',s,i);     end;     i: =i+1;   until i> length(s);   writeln('новая строка: ',s); end. ввод - вывод строка: в корзине лежали 18 яблок и 15 апельсин новая строка: в корзине лежали 1080 яблок и 1050 апельсин

Var a: array [1..7] of real; i: integer; begin write ('массив: '); for i: =1 to 7 do begin a[i]: =random(201)-100; write (a[i],' '); end; writeln; write ('массив * 2: '); for i: =1 to 7 do begin a[i]: =a[i]*2; write (a[i],' '); end; end. это возможно что выше а ниже значение 50 на 1 измени и все  uses crt; var mas: array[1..20] of integer; i,b: integer; beginclrscr; randomize; for i: =1 to 20 do beginmas[i]: =random(51)+50; write(mas[i]: 4); end; write('b='); readln(b); for i: =1 to 20 do beginmas[i]: =mas[i]+b; write(mas[i]: 4); end; readkey; end.