//Keliam laipsniu
program laipsnis;
var i, sk, laips, ats : integer;
begin
WriteLn('Iveskite skaiciu');
ReadLn(sk);
WriteLn('Kokiu laipsniu kelsime?');
ReadLn(laips);

//priskiriam pradine reiksme atsakymui
ats := 1;

//sukam cikla
i := 0;
while(i < laips) do
begin
i := i+1;
ats := ats*sk;
end;

writeln('Gautas rezultatas = ', ats);

//paprastesnis variantas nesukant ciklo
//ats := sk**laips;
//writeln('Gautas rezultatas = ', ats);

Readln();
end.

 
//Keliam laipsniu
program laipsnis;
    var i, sk, laips, ats : integer;
begin
  WriteLn('Iveskite skaiciu');
  ReadLn(sk);
  WriteLn('Kokiu laipsniu kelsime?');
  ReadLn(laips);
 
  //priskiriam pradine reiksme atsakymui
  ats := 1;
 
  //sukam cikla
  for i:=1 to laips do
    begin
    ats := ats*sk;
    end;
 
  writeln('Gautas rezultatas = ', ats);
 
  //paprastesnis variantas nesukant ciklo
  //ats := sk**laips;
  //writeln('Gautas rezultatas = ', ats);
 
  Readln();
end.