uses wincrt;
var
i,o,n:longint;
hasil:real;
begin
writeln('a pangkat b');
writeln('masukkan a= ');readln(o);
writeln('masukkan b= ');readln(n);
hasil:=1;
for i:=1 to abs(n) do
hasil:=o * hasil;
if (n<0) then
begin
write('hasil= ');
write(1/hasil);
end
else
begin
write('hasil= ');
write(hasil);
end;
end.
program belajar;
uses wincrt;
var i,j,n:integer;
begin
readln(n);
for i:=1 to n do
begin
for j:=1 to n-i do
write(' ');
for j:=1 to i do
write ('*');
writeln;
end;
end.
