Вводятся натуральные n и k. вычислить n в степени k (в программе паскаль, с цикла

Решение во вложении.

Всего доброго! 

3172 : 50 = 63,44
т. к. 31 не делится на 50, то мы берем трехзначное число - 317, ищем такое число, которое делится на 50, но остаток не дает больше самого числа
6*50=300
317-300=17
172:50 = 3(остаток)
172-150=220, числа закончились, но деление еще не закончилось. мы добавляем 0 и получается число 220, 220:50 = 4,4
63,44*50 = 3172 ( ты там в столбик посчитай, если проверку делать надо)

16280:800=20,35 . образуем первое неполное делимое: 1628:800
1628-1600=28
добавляем 0, получается 280 - он не делится на 800, то ставим запятую в частном, и 2800:800 = 20,35

4368:70=62,4
ищем исходное число, на которое будем делить: 436
6*70=420, значит 436-420=16
168:70
70*2=140
168-140=28
280=70*4
ну а там уже просто в столбик умножение сделай)

25832:600 = 43,05333
ищем исходное число, на которое будем делить: 2583
600*4=2400
2583-2400=183
600*3=1800
1832-1800=32
320 не делится на 600, поэтому ставим 0 после запятой. 
3200:600
600*5=3000
3200-3000=200
600*3=1800
2000-1800=200 и тааак дальше, одно и тоже число
Не забудь проверку выполнить в столбик -умножением)

надеюсь, что хоть как-то никогда такие задания в школе не выполняли...)

var  i, n: longint;
  a: array[1..10] of real;
  amin, amax, p: real;
begin
  assign(output, 'output.txt');
  rewrite(output);
  readln(n);
  if n = 2 then
  begin
    writeln('0 ');
    close(output);
  end
  else
  begin
    p := 1;
    for i := 1 to n do
      read(a[i]);
    amin := a[1];
    for i := 1 to n do
      if amin >= abs(a[i]) then
        amin := a[i];
    amax := a[1];
    for i := 1 to n do
    begin
      if amax <= a[i] then
        amax := a[i];
    end;
    if n > 2 then
      for i := 2 to n - 1 do
        p := p * a[i];
    write(p:0:3);
    close(output);
  end;
end.