Определить, какая из трех точек – M1(x1, y1) , M2(x2, y2), M3(x3, y3) - расположена дальше от начала координат. Вывести на экран координаты этой точки.

Общение в интернете весьма разнообразно на данный момент.

Электронная почта - самый базовый вид общения. Без нее в интернете никуда, ведь она требуется для большенства регистраций на всевозможных сайтах и ресурсах. А так же является простым и удобным обмена информацией и файлами, а так же хранения онных. Правда, чтоб написать кому-то, вам надо знать его электронный адрес

Чаты быстрого обмена короткими текстовыми сообщениями с одним и более людьми, как знакомыми так и нет.

Instant Messengers (ICQ,Jabber,MNS,Skype,...) - гибрид электронной почты и чата. Быстрый обмен короткими текстовыми сообщениями с уже знакомым собеседником или с тем кому вы дали свой номер для связи. Так же позднее добавилась возможность обмена файлами, голосовое и видео общение, но основной принцип все тот же.

Блоги, форумы, дневники - опять таки гибрид электронной почты и чата. Тут уже сообщения не короткие, как раз надо изложить информацию как можно более удобно для чтенья, добавить картинки, видео, музыку. А увидеть ваши опусы может кто-угодно и даже имеет возможность оставить обстоятельный комментарий

Социальные сети (Vk,Odnoklassniki,Facebook,...) - это некий вариант IM, который хочет с вас снять завесу анонимности. Тут вы можете искать людей, с которыми уже сталкивались в реальной жизни и общаться с ними. Как более поздний вариант общения, старается обьеденить в себе все черты предыдущих, хотя порой этого делать не стоит

и какая вероятность что пользователь не ошибется?)))

program i_guess_number;
uses crt;
var changes: array [1..2,1..10] of integer;
i,op,n:integer;
s:string;
res:real;

BEGIN
    randomize;
    writeln("Загадайте число");
    n := 0;
    repeat
        n := n+1;
        i := random(10);
        op := random(4);
        
        case op of
            1: s := "Прибавте ";
            2: s := "Отнимите ";
            3: s := "Умножте на ";
            else s := "Поделите на ";
        end;
        
        writeln(s, i);
        changes[1,n] := op; {запоминаем действия}
        changes[2,n] := i;
    until n = 10;
    
    writeln("Что вышло?");
    readln(res);
    
    for i := n downto 1 do { производим обратные действия }
    begin
        case changes[1,i] of
            1: res := res - changes[2,i];
            2: res := res + changes[2,i];
            3: res := res / changes[2,i];
            else res := res * changes[2,i];
        end;
    end;
        
    writeln("Вы загодали ",res);
END.