идентификация
уточняющая, опознающая
распознает, классифицирует, отождествляет
помогает распознать нужную информацию
сопоставление
var bn,sn,b1,q,n:real;
begin
write('b1=');
read(b1);
write('q=');
read(q);
write('n=');
read(n);
bn:=b1*power(q,n-1);
sn:=(b1*(power(q,n)-1))/(q-1);
writeln('Bn=',bn);
writeln('Sn=',sn);
end.