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

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

program prim;

var i,x : integer;

begin

x: =1;

for i: =1 to 5 do

begin write (x,'   ');

x: =x+2;

end;

end. 

var a: integer;

begin

writeln ('vvedite nomer mesuaca');

read (a);

if (a=1) then writeln ('30');

if (a=2) then writeln ('28');

if (a=3) then writeln ('30');  

  if (a=4) then writeln ('31');  

  if (a=5) then writeln ('30');  

  if (a=6) then writeln ('31');  

  if (a=7) then writeln ('30');  

  if (a=8) then writeln ('31');  

  if (a=9) then writeln ('30');  

  if (a=10) then writeln ('31');  

  if (a=11) then writeln ('30');  

  if (a=12) then writeln ('31');  

end.