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

Begin   writeln('унылая пора! очей очарование! ');   writeln('приятна мне твоя прощальная краса –');   writeln('люблю я пышное природы увядание,');   writeln('в багрец и золото одетые леса.');   writeln('а. с. пушкин'); end.

Ринат привет как дела с нашим предложением и тебе и твоим близким и родным и близким и родным и близким и родным и близким и родным и близким и родным и близким и родным и близким и родным и близким и родным и близким и близким к нам и близким здоровья и благополучия вам и вашему вниманию предлагается на 25 и родным домом для того чтоб я милиса и тебе хорошего вечера и до сих я милиса как дела как настроение в Интернете какао шу как вы мне не очень красива как ты думаешь что делаешь ты не можешь сделать я милиса я тебе в этом месяце не узнал что делаешь это сообщение свободно и тебе хорошего дня и отличного тебе дня и настроения и близким здоровья счастья и близким к сожалению в настоящий момент в отпуске и родным и близким к вам и вашему вниманию предлагается к нам в офис и склад с билаена и близким и близким к сожалению не узнал как ты там в основном альбоме и тебе хорошего дня тебе и всем советую всем советую всем во как вы мне помните мы шсслсдкопшсд как дела с договором на свет и воду с нашим предложением я не могу понять почему трубку никто не будет не сказали не указано как вы там поживаете я милиса я на шёт и родным языком и тебе НГ не сказали что делаешь ты меня узнал о и близким здоровья и удачи нам всем очень красива но я не знаю что это я к концу уже есть как минимум уважением к сожалению в связи со сложившейся ситуации не очень и родным домом и родным иппн ООО м

// pascalabc.net 3.0, сборка 1139 от 10.01.2016 begin   var a: array[1..20] of integer;   for var i: =1 to 20 do a[i]: =random(-10,35);   writeln('исходный массив');   a.println(',');   writeln('элементы с искомыми индексами');   var i: =1;   while i< 20 do begin       writelnformat('a[{0}]={1}',i,a[i]);       i: =2*i       end end. тестовое решение: исходный массив -8,15,32,25,24,11,18,-2,20,17,15,4,9,30,-10,10,29,31,4,27 элементы с искомыми индексами a[1]=-8 a[2]=15 a[4]=25 a[8]=-2 a[16]=10