Написать эссе на тему «все самое интересное о 3d мире»

Мне кажется что люди без 3d не могут жить ,потому что, это самое интересное 3d для людей. и если бы не было 3d, то дома, здания, офисы и т.д не были бы объёмными, красивыми. 3d людям рассмотреть все здание длину, ширину, высату и т.д. и я думаю что все самое интересное в 3d мире.

Var       best, m, s,i: integer; begin       best : = 10000000;       for i: = 1 to 3 do begin               write('min sec = ');               readln(m, s);               if best > m * 60 + s then best : = m * 60 + s;       end;             writeln('лучший = ', best div 60, ' min ', best mod 60, ' sec'); end.

program xxx;

var s : string;

        а : integer;

begin

    writeln ('введите слово-');

    readln (s);

    а: = length(s)

    writeln ('длина слова=', a);

    readln

end.