Циклы с постусловиями.
Разработать схему алгоритма и написать программный код на языке Паскаль. Используя оператор Repeat Until.

var  i, n, y, x: real;begin  readln(n, x);  repeat    y := y + power(x, n - i);    i := i + 1;  until (n < i);  writeln(y);end.