Prinzessin from Pati

Program Menghitung_Nilai_Log;
{Nama File : Responsi Nomor 2
Tanggal : 8 Juni 2010}

uses wincrt;
var log,a:real;

begin
writeln(' MENGHITUNG NILAI LOG');
write('masukkan nilai a : ');readln(a);
log:=ln(a)/ln(10);
writeln;
write('log ',a:6:2,' : ',log:6:2);
end.