Положительное и отрицательное влияние компьютера на жизнь и здоровье человека! ? )) заранее ))

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

Pascalabc.net 3.3.5, сборка 1660 от 20.04.2018 внимание! если программа не работает, обновите версию! procedure preobraz(var stroka: string); begin   var bq: =new queue< (integer,integer)> ;   foreach var m in stroka.matches('\s+') do       bq.enqueue((m.index,m.length));   var wq: =new queue< (integer,string)> ;   foreach var m in stroka.matches('\s+') do       if m.value.any(t-> t in ['0'..'9']) then wq.enqueue((m.index,''))       else wq.enqueue((m.index,m.value));   stroka: ='';   var pbi,pwi: integer;   while (bq.count> 0) and (wq.count> 0) do begin       (pbi,pwi): =(bq.peek[0],wq.peek[0]);       if pbi< pwi then begin           stroka: =stroka+bq.peek[1]*' ';           bq.dequeue           end       else begin           stroka: =stroka+wq.peek[1];           wq.dequeue           end       end;   while bq.count> 0 do begin       stroka: =stroka+bq.peek[1]*' ';       bq.dequeue       end;   while wq.count> 0 do begin       stroka: =stroka+wq.peek[1];       wq.dequeue       end end; begin   var s: =readlnstring;   preobraz(s);   s: ='< '+s+'> '; // чтобы было видно, как работает   s.println end.