Почему надо соблюдать этику сетевого общения? ( развёрнутый ответ)

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

writeln('a[',i,']=',a[i]);

readln;

end.

я бы сделал

program p_1; var a,b: real; beginwriteln ('vvedite 1-oe'); read (a); writeln ('vvedite 2-oe'); read (b); if (a> b) thenbegin writeln ( ' 1-oe bolshe (',a,')' ); end; if (a< b) thenbegin writeln ( ' 1-oe menshee. bolshe vtoroe (',b,')' ); end; if a=b thenbegin writeln ('oni ravni'); end; end.