Vct in ra màn hình giờ phút giây khi nhập vài số giây

uses crt;

   var gio, phut, giay: real;

begin

   clrscr;

   write(‘Nhap giay: ‘); readln(giay);

   gio:=3600*giay;

   phut:=60*giay;

   writeln(‘Gio = ‘, gio);

   writeln(‘Phut = ‘, phut);

   writeln(‘Giay = ‘, giay);

   readln

end.