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