uses System;var i:integer;begin cls;for i:=1 to 10 dowriteln(' 3 v stepeni ',i ,' = ',power(3,i) );readln;end.