Напишите операторы которые посчитают и перемножат числа, кратные 6, на интервале от 9 до 89

P  =  1 for  i=  12 to  89 step 6 p  =  p*i next  i print  p

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

Program factors; var num, sum : word; st : string; j : byte; function fact(a : byte) : word; var res : word; i : byte; begin res: =1; for i: =1 to a do res : = res*i; writeln(a, '! =', res); fact : = res; end; function vl(a : char) : byte; var res : byte; begin val(a, res); vl : = res; end; begin write('введите число: '); readln (num); str(num, st); sum: =0; for j: =1 to length(st) do sum : = sum + fact(vl(st[j])); writeln('сумма факториалов цифр числа равна: ', sum); end. тестовый прогон программы: введите число: 125 1! =1 2! =2 5! =120 сумма факториалов цифр числа равна: 123