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

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.