Что происходит с данными при вводе их в память компьютера? кодирование декодирование шифрование дешифрование

При вводе кодирование, при выводе декодирование.

Uses crt; const   n=30; type   ta=array[1..n] of integer;   ts=array[1..n] of string[30];   var   i: integer;   p,c: ta;   s: ts; begin   clrscr;   for i: =1 to n do begin       write('марка автомобиля ',i,': ');       readln(s[i]);       write('его мощность (л.с.) и стоимость (руб.); ');       readln(p[i],c[i])       end;   writeln;     writeln('автомобили мощностью не более 80 л.с.');   for i: =1 to n do       if p[i]< =80 then writeln(s[i]: 30,p[i]: 10,c[i]: 10);   readkey; end.

Uses crt; const   n=15;   var   i,m1,m2,t: integer;   k: array[1..n] of integer; begin   clrscr;   writeln('укажите количество людей на каждом этаже');   for i: =1 to n do read(k[i]);   writeln;   { массив получен, решаем }   m1: =1; m2: =2;   if k[m2]< k[m1] then begin t: =m1; m1: =m2; m2: =t end;   for i: =3 to n do       if k[i]< k[m2] then begin m2: =i; t: =m1; m1: =m2; m2: =t end;   writeln('меньше всего людей на этажах ',m1,' и ',m2);   readkey end. ************************************************************************************** uses crt; const   n=10;   a: array[1..n] of integer=(6,6,6,6,3,5,2,1,0,7);   var   i,j,t: integer; begin   clrscr;   t: =a[1];   i: =2;   while (i< =n) and (a[i]=t) do i: =i+1;   if i< =n then begin       writeln('одинаковых элементов: ', i-1);       write('за ними следуют элементы ');       for j: =i to n do write(a[j],' ');       writeln       end   else writeln('весь массив заполнен одинаковыми элементами');   readkey end.