pascal Написать программу, которая выводит таблицу степеней тройки (от нулевой до девятой)

Ответ:

program Step3;

var

 i, t: Integer;

begin

 t := 1;

 for i := 0 to 9 do begin

   WriteLn ('3 ^ ', i, ' = ', t);

   t := t * 3;

 end;

 ReadLn;

end.