uses wincrt;
var bil1,bil2,hasil:integer;
var nama,materi:string;
var a,temp:real;
var logx,Lnx:integer;
begin
write (‘Masukan nama Anda:’);
readln(nama);
write (‘Materi apa yang anda cari:’);
readln (materi);
clrscr;
if (materi=’logaritma’) OR (materi=’LOGARITMA’) then write (‘Anda boleh lanjut’)
else
write(‘Anda Harus Berhenti’);
clrscr;
writeln (‘Hai Aku Sedang Belajar Memprogram’);
writeln(‘Ini Program Logaritma’);
readln;