Световое табло состоит из пяти светящихся элементов, каждый, из которых может светиться одним из трёх различных цветов. Каждая комбинация из пяти цветных элементов кодирует определенный сигнал. Сколько различных сигналов можно передать при табло при условии, что все элементы должны светиться?​

Ирина и Тимур = не информатика 

Таня и Саша = не информатика 

Тимур = боится физики 

Таня, Тимур = не литература, но плавают 

Тимур и Таня = поздравили математика 

Ирена = cожалеет мало времени на литературу

победители по: физике, математике, информатике, литературе и географии.

Коля -  информатика (Ирена и Тимур = учит, Камилла и Эльдар = интересуются) 

Тимур - не физика, не литература, не математика, не информатика, 

значит география 

Таня - не информатика, не литература, не математика, уже не география => Физика 

Ирена - не информатика, не физика, не география => Литература 

Коля - Математика

Я бы написал по другому

Program vozvedenie_v_stepen;

var a,b:integer;

begin

writeln ('Введите число, которое будем возводить в степень');

readln (a);

writeln ('Введите число, обозначающее степень, в которую будем возводить');

readln (b);

Writeln (a,' в степени ',b,' = ',exp(b*ln(a))); 

end. 

Извиняюсь за неправильный ответ. Не увидел, что вам нужно с циклом. Тогда лучше так...

Program vozvedenie_v_stepen;
var a,b,c,d:integer;
begin
writeln ( 'Введите число, которое будем возводить в степень' );
readln (a);
c:=a;
writeln ( 'Введите число, обозначающее степень, в которую будем возводить');
readln (b);
for d:= 2 to b do
a:=a*c;
if b=0 then
writeln(1)
else
writeln (c,' в степени ',b,' = ',a);
end.