Хочу возвести число 5 в квадрат, всё проходит нормально, но после ввода чисел ничего не происходит, результат не выводится
Program cvadrat;
Var
x, N, c: integer;
begin
writeln('Введите значение x: ');
readln(x);
writeln('Введите значение N: ');
readln(N);
c:= 1;
while c<>b do
c:= c*x;
writeln('a^b= ', c);
end.
Program cvadrat;
Var
x, N, c: integer;
begin
writeln('Введите значение x: ');
readln(x);
writeln('Введите значение N: ');
readln(N);
c:= 1;
while c<>b do
c:= c*x;
writeln('a^b= ', c);
end.