решить, решение на линейный алгоритм . Простите что так плохо видно просто нам так дали.
​

Прочитать четверостишие

Воспроизвести четверостишие в памяти

Рассказать четверостишие без единой ошибки

Объяснение:

Начало

Выполняется действие Прочитать четверостишие.

Затем, выполняется действие Воспроизвести четверостишие в памяти.

Затем, проверяется условие Рассказать четверостишие без единой ошибки.

Если условие верно (Руслан рассказал четверостишие без единой ошибки) цикл закончился. Если нет, то цикл идёт заново

(Выполняется действие Прочитать четверостишие.

Затем, выполняется действие Воспроизвести четверостишие в памяти.

Затем, проверяется условие Рассказать четверостишие без единой ошибки.

Если условие верно (Руслан рассказал четверостишие без единой ошибки) цикл закончился.)

Так будет по кругу, пока Руслан не расскажет четверостишие без единой ошибки.

Program project; //объявляем название программы
Var //объявляем переменные
a: integer; //integer - целое число
Begin //начинаем собственно программу
>>a:=1; //первое число будет состоять из единиц
>>While a <> 10 do //начинаем цикл, который будет длиться, пока "а" не достигнет 10
>>Begin //начало цикла
>>>>Writeln (a, a, a); //записываем "а" трижды
>>>>a:=a+1; //прибавляем к "а" единицу
>>End; //конец цикла
End. //конец программы

P. S. Вместо ">>" пиши пробелы, просто они здесь не отображаются