Эссе на тему"плюсы и минусы сети интернета" надо

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

Program amstrong; var   a,b: integer;   i,j,k,   ci,   si,mi,   errkod: integer;   sti: string;   flag: boolean; begin   readln(a,b);   flag: =false;   for i: =a to b do   begin       str(i, sti);       si: =0;       for j: =1 to length(sti) do       begin           val(sti[j],mi,errkod);           ci: =1;           for k: =1 to length(sti) do               ci: =ci*mi;           si: =si+ci;       end;       if si=i then       begin           write(si,' ');           flag: =true       end;   end;   if not flag then write(-1);   readln;   end.

Program amstrong; var   a,b: integer;   i,j,k,   ci,   si,mi,   errkod: integer;   sti: string;   flag: boolean; begin   readln(a,b);   flag: =false;   for i: =a to b do   begin       str(i, sti);       si: =0;       for j: =1 to length(sti) do       begin           val(sti[j],mi,errkod);           ci: =1;           for k: =1 to length(sti) do               ci: =ci*mi;           si: =si+ci;       end;       if si=i then       begin           write(si,' ');           flag: =true       end;   end;   if not flag then write(-1);   readln;   end.