Что такое графические блоки в программе scratch​

Вотличие от многих людей, я отношусь к компьютеру позитивно. это — величайшее изобретение человечества! люди создали универсальную машину, с которой можно делать сто дел: читать, смотреть кино, рисовать, печатать, чертить, считать, находить полезную информацию, делать ретушь фотографии, создавать мультфильмы и видеоролики. еще можно общаться с людьми у которых самые разные увлечения, которые живут хоть на другом конце планеты. не нужно ограничиваться только теми людьми, кто живет в соседнем дворе, и навязывать себе их хобби. я могу продолжать этот список до конца сочинения, чтобы было понятно, как полезен компьютер. часто компьютер сравнивают с телевизором и говорят, что они оба крадут у человека время. но у меня другое мнение. да, долго сидеть перед компьютером вредно для здоровья и для личности, потому что человек не двигается, портит зрение и не общается с живыми людьми. но в чем виноват компьютер? ! человек сам крадет у себя время, а не машина. телевизор не полезен, потому что перед ним человек сидит пассивно. сидит, пультом клацает, а ему показывают картинку. с компьютером другое дело! с ним все время надо действовать! даже читать и писать все время приходится. так даже интереснее, чем торчать у телевизора. а еще компьютер заставляет выбирать самому то, что действительно нужно. если бы люди не учились выбирать, то перед монитором проводили бы всю жизнь. компьютер в моей жизни занимает важное место, но я могу подолгу обходиться и без него. просто надо все время помнить, что компьютер изобрели для того, чтобы облегчить жизнь, а не заменить ее. и чтобы расширить возможности человека, а не сузить их.

Program myach;   uses crt,graphabc;   var x: integer;   begin  x: =1;   for x: =190 to 465 do  begin  clrscr;   circle(150,150,15);   line(150,165,150,250);   line(150,250,130,270);   line(150,250,170,270);   line(150,180,180,175);   line(150,180,180,180);   circle(500,150,15);   line(500,165,500,250);   line(500,250,480,270);   line(500,250,520,270);   line(500,180,470,175);   line(500,180,470,180);   circle(x,170,10);   delay(5);   end;   for x: =465 downto 190 do  begin  clrscr;   circle(150,150,15);   line(150,165,150,250);   line(150,250,130,270);   line(150,250,170,270);   line(150,180,180,175);   line(150,180,180,180);   circle(500,150,15);   line(500,165,500,250);   line(500,250,480,270);   line(500,250,520,270);   line(500,180,470,175);   line(500,180,470,180);   circle(x,170,10);   delay(5);   end;   end.