Как называется система обмена информацией на определенную тему между абонентами сети ?

Program zadacha; const pi=3.14; uses crt; var s,r,l,v,h: real; begin clrscr; write ('vvedite visoty: '); readln (h); write ('vvedite radius: '); readln (r); write ('vvedite obrazujuschujy: '); readln (l); s: =pi*r*l; v: =pi*r*2*h/3; writeln ('ploschad ravna=', s: 3: 2); writeln ('objem raven=', v: 3: 2); readln; end.

uses crt; var

  a,b,c,min: integer; begin  writeln('введи три числа: ');   readln(a,b,c);   min: =a;   if b< min then min: =b;   if c< min then min: =c;   writeln('наименьшее из этих чисел:   ',min); end.