Biaya Telpon

program biaya_telpon;
uses wincrt;
var
j1,j2,m1,m2,tj,tm,tsj,b:real;
tujuan,lamongan,surabaya,bandung,jakarta:string;
begin
clrscr;
gotoxy (30,8);writeln('Program biaya telpon');writeln;
write('Tujuan telpon : ');readln(tujuan);writeln;
write('Jam awal telpon : ');readln(j1);
write('Jam akhir telpon : ');readln(j2);
write('Menit awal telpon : ');readln(m1);
write('Menit akhir telpon : ');readln(m2);
if(j2=j1)then tm:=m2-m1
else if(j2>j1)then tj:=j2-j1;
tm:=tj*60;
tsj:=tm+m2-m1;
readln;
if(tujuan='lamongan')then b:=tsj*100
else if(tujuan='surabaya')then b:=tsj*500
else if(tujuan='bandung')then b:=tsj*1000
else if(tujuan='jakarta')then b:=tsj*1200;
writeln('lama pembicaraan : ',tsj:2:0,'menit');
writeln('tujuan telpon : ',tujuan);
writeln('biaya yang harus dibayar adalah : ' ,b:2:0, 'rupiah');
readln;
end.