Продолжите фразы : а) информация - это б) действия с информацией - это действия , связанные с заранее

Информация-   сведения о чём-либо, независимо от формы их представления.  действия с информацией- это действия, связанные с получением и передачей, хранением и обработкой информации

Var       s: string;       a, b: integer; begin       readln(s);       if s[1] = 'x' then begin               a : = strtoint(s[3]);               b : = strtoint(s[5]);               if s[2] = '-' then a : = -a;               writeln(b - a);       end       else if s[3] = 'x' then begin               a : = strtoint(s[1]);               b : = strtoint(s[5]);               if s[2] = '-' then begin                       a : = -a;                       b : = -b;               end;               writeln(b - a);       end       else if s[5] = 'x' then begin               a : = strtoint(s[1]);               b : = strtoint(s[3]);               if s[2] = '-' then                       b : = -b;               writeln(a + b);       end end. учтите что никакой защиты от дурака или неверного ввода

Var s: string; n,a: integer; begin writeln('введите число (для закрытия проги введите 0)'); readln(n); while n< > 0 do begin s: =''; while n < > 0 do begin a: =n mod 16; case a of  0: s: =a+s; 1: s: =a+s; 2: s: =a+s; 3: s: =a+s; 4: s: =a+s; 5: s: =a+s; 6: s: =a+s; 7: s: =a+s; 8: s: =a+s; 9: s: =a+s; 10: s: ='a'+s; 11: s: ='b'+s; 12: s: ='c'+s; 13: s: ='d'+s; 14: s: ='e'+s; 15: s: ='f'+s; end; n: =n div 16; end; writeln(s); writeln('введите число (для закрытия проги введите 0)'); readln(n); end; end.