задача в паскале. вычислить y^x, где x должно быть натуральное число

1

Ответы и объяснения

2013-01-30T22:00:03+04:00

var

  res, i, y, x : longint;

begin

  read (y, x);

  res := 1;

  for i := 1 to x do

    res := res * y;

  writeln (res);

end.