Viết chương trình nhập từ bàn phím vào số nguyên bất kì lớn hơn 60 thông báo ra màn hình số trên có bao nhiêu phút và giây. (gợi ý sử dụng div và mod cho 60). Giúp mình với nha . Mình sẽ vote 5* nha. Cảm ơn nhiều.

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.

_________________________________

Học tốt nha, 10 điểm

#Duahauvn

Program Baitap;

Uses Crt;

Var a:integer;

Begin

Clrscr;

Writeln('ban hay nhap gia tri cho a nhung phai lon hon 60 ');Readln(a);

Writeln('so tren co so phut la ',a div 60);

Writeln('so tren co so giay la ',a mod 60);

Readln;

End.