Предскажите результат выполнения программы на Паскале:var a: string;b, i, st, n, s, x, k:integer;begina:='25'; b:=5; s:=0; st:=1;n:=length(a);for i:=1 to n dobeginval (copy(a,n-i+1,1),x,k); s:=s+x*st; st:=st*b;end;writeln (s);end.
(Ответ необходимо ввести в поле ввода.)
Варианты ответа