Ответ:

program qq;

Var a: array [1..7] of string;

i: integer;

Begin

For i:=1 to 7 do

readln(a[i]);

Writeln(a[7]);

End.

Объяснение:

Создаем строковой массив, в цикле пихаем в него цвета радуги, потом выводим последний (7) элемент