Đổi Km sang dặm

 Lập trình đổi đơn vị đo Km sang dặm và ngược lại tuỳ theo yêu cầu của người dùng khi chương trình chạy. Biết rằng 1dặm = 1,609344km. Không cho phép người dùng nhập số âm. Chương trình dừng khi người dùng nhập số cần đổi là số 0
                                                                 Giải
uses crt;
 Var
    tl,tl1: char;
    n: real;
 BEGIN
      repeat
            clrscr;
            Writeln('   1. Doi km sang dam');
            Writeln('   2. Doi dam sang km');
            writeln('Lua chon cac chuc nang tren:');
            tl1:=readkey;
            if tl1='1' then
               begin
                    write('Nhap so km: '); readln(n);
                    if n<0 then writeln('Ban nhap so k hop le')
                    else if n=0 then exit
                         else writeln(n:1:6,'(km) = ',n/1.609344:1:6,'(dam).');
               end
            else if tl1='2' then
               begin
                    write('Nhap so dam: '); readln(n);
                    if n<0 then writeln('Ban nhap so k hop le')
                    else if n=0 then exit
                         else writeln(n:1:6,'(dam) = ',n*1.609344:1:6,'(km).');
              end
               else if tl1='0' then exit;
            write('Ban co muon nhap tiep k?(C/K) : ');
            tl:=readkey;
      until(upcase(tl)='K');
 END.