Почему при объединении в компьютерную сеть снижается информационная безопасность

закодированный текст: byck is my dog.

var x1,x2,x3,x4: integer;

function max(a,b: integer): integer

begin

    if a> b then max: = a

    else max: =b;

end;

begin

  read(x1,x2,x3,x4);

  x1: =max(x1,x2);

  x2: =max(x3,x4);

  x1: =max(x1,x2);

  writeln(x1);

end.

векторная графика масштабируется без потери качества изображения, но в растровой графике возможно использование более богатой цвтовой палитры.

uses crt; var a,s: integer; begins: =0; writeln('введите числа'); repeatreadln(a); if (a> 0) then s: =s+a; until a=0; writeln(s); end.