Ai có code máy tính gì hay ho ko cho mình xin?

↓đây nhá↓

program doi_gio_hay_phut;
uses crt;
var x:byte;
    gio,phut,giay:longint;
Begin
    clrscr;
    writeln('0. Quay lai');
    writeln('1. Doi gio - phut');
    writeln('2. Doi gio - giay');
    writeln('3. Doi phut - gio');
    writeln('4. Doi phut - giay');
    writeln('5. Doi giay - gio');
    writeln('6. Doi giay - phut');
    writeln('-----------------');
    write('Hay chon mot muc: ');readln(x);
    writeln('-----------------');
    case x of
    0:exit;
    1:begin
        write('Nhap gio: ');readln(gio);
        phut:=gio*60;
        write('KQ: ',phut,'phut')
    end;
    2:begin
        write('nhap gio: ');readln(gio);
        giay:=gio*3600;
        write('KQ: ',giay,'giay');
    end;
    3:begin
        write('Nhap phut: ');readln(phut);
        gio:=phut div 60;
        phut:=phut mod 60;
        write('KQ: ',gio,'gio : ',phut,'phut');
    end;
    4:begin
        write('Nhap phut: ');readln(phut);
        giay:=phut*60;
        write('KQ: ',giay,'giay');
    end;
    5:begin
        write('Nhap giay: ');readln(giay);
        gio:=giay div 3600;
        giay:=giay mod 3600;
        phut:=giay div 60;
        giay:=giay mod 60;
        write('KQ: ',gio,'gio : ',phut,'phut : ',giay,'giay');
    end;
    6:begin
        write('Nhap giay: ');readln(giay);
        phut:=giay div 60;
        giay:=giay mod 60;
        write('KQ: ',phut,'phut : ',giay,'giay');
    end;
    else
    write('--Chon sai roi!--');
    delay(5000);
    exit;
    end;
    readln
End.