program spanningsversterking; uses wincrt;
var
   Uin, Uuit, AdB: real;
begin
   write('Geef waarde Uin in volt: ');
   read(Uin);
   write('Geef waarde Uuit in volt: ');
   read(Uuit);
   AdB:=20*ln(Uuit/Uin)/ln(10);
   write('Spanningsversterking is: ', AdB:8:2, ' dB')
end.
