Принцип, который предполагает изучение общества, коллективов через раскрытие поведения отдельных личностей и социальных

var masiv:array[1..10000] of longint; i:longint;

begin

   (n = konetz massiva)

   for i:=1 to n do

     if masiv[i]=>100 then

        begin

           masiv[i]:=round(masiv[i]/100);

           write(masiv[i],' m | ');

        end else

        begin

          write(masiv[i],' cm | ');

        end;

readln;

end;