1. 

program ct;
uses crt;
var i,phut,giay:Qword;
begin
    clrscr;
    writeln('Nhap so giay: ');readln(i);
    phut:=i div 60; giay:= i mod 60;
    writeln(i,' giay = ',phut,' phut ',giay,' giay ');
    readln;
end.

2.

program ct;
uses crt;
var t1000,t500,t800,du,SoTienCanDoi,sotienbandau:Qword;
begin
    writeln('Nhap so tien can doi:');readln(SoTienCanDoi);

    sotienbandau:=SoTienCanDoi;
    t1000:=SoTienCanDoi div 1000;
    SoTienCanDoi:=SoTienCanDoi-t1000*1000;
    writeln(SoTienCanDoi);
    t800:=SoTienCanDoi div 800;
    SoTienCanDoi:=SoTienCanDoi-t800*800;
    t500:=SoTienCanDoi div 500;
    SoTienCanDoi:=SoTienCanDoi-t500*500;
    du:= SoTienCanDoi;
    writeln(sotienbandau,'đ = ',t1000,' to 1000đ, ',t800,' to 800đ, ',t500,' to 500đ, ','du: ',du,'đ');
    readln;
end.

__________________________________

#Duahauvn