program radicali;
(* logaritmo di radicali *)
uses crt;
var contatore,cifre,indice:integer;
var base,logradicale,logbase1,base1,diretto:real;
var risultato:real;


function radice(base,logradicale:real):real;
begin
radice:=exp(ln(base)*logradicale);
end;

procedure pausa;
var ch:char;
begin
writeln('premi return');
ch:=readkey;
end;

begin
clrscr;
base:=10;
writeln('numero prove = ');
readln(cifre);
writeln('------------------------------------');
for contatore := 1 to cifre do
begin
writeln('radicando base1   =  ');readln(base1);
writeln('indice radicale =  ');readln(indice);
logbase1:=ln(base1)/ln(10);
writeln('logaritmo radicale =  logaritmo radicando/indice ');
writeln('logaritmo del radicale  = ');
logradicale:=logbase1/indice;
writeln(logradicale:4:5);
writeln('radice =');
writeln(radice(base,logradicale):5:6);
diretto:=exp(ln(base)*logradicale);
writeln('risultato diretto =',diretto:5:6);
writeln('------------------------------------');
end;
pausa;
end.