Определить, что является результатом работы программы при =100, =3

Соня в категроии Информатика, вопрос открыт 16.06.2017 в 21:43

Program Z2;

Function largest_power (x, y: longint):word;
Var n: word;
p: longint;
Begin
p:=y; n:=0;
While x<=x do
Begin
p:=y*p;
inc(n);
End;
largest_power:=n;
End;

Begin
Writeln('Введите значения a и b'); Readln (a,b);
Writeln('n=', largest_power (a, b));
End.