Что это такое: система обмена сообщениями с компьютерных сетей

Локальная сеть , или социальная сеть

Жили-были клавиатура, монитор, память и процессор, жили они дружно пока не возник спор кто из них главнее. каждый начал приводить аргументы. "я лучше потому-то без меня-клавиатуры  мы бы не смогли печатать, то есть не смогли бы передавать информацию на компьютер"- сказала клавиатура  , "без меня-монитора мы бы не смогли видеть эту самую информацию"- говорил монитор, "без меня-  памяти мы бы не могли сохранить ее (информацию)"- протараторила память, "а без меня-процессора и вовсе компьютер не стал бы работать"- заявил процессор.  и клавиатура, и монитор, и память, и процессор - все они неотъемлимые части компьютера, без них он бы не работал. не стали они больше ссориться, и жили дружно и  счастливо!

1: var a: integer;   begin  writeln('введите число');   read(a);   if (a mod 343 = 0) then writeln('число ',a,' кратно числу 343.')    else writeln('число ',a,' не кратно числу 343.');     end.2 : var a,s,d,e: integer;   begin  writeln('введите трехзначное число: ');   read(a);     s: =a div 100;     d: =(a div 10) mod 10;     e: =a mod 10;     if (s=0)or(d=0)or(e=0) then writeln('число ',a,' содержит 0.')      else writeln('число ',a,' не содержит 0.');     end.