8.

uses crt;
var n:longint;
begin
clrscr;
   write('Nhap vao so giay: ');readln(n);
   writeln('So gio: ',n div 3600);
   writeln('So phut: ',n div 60);
   writeln('So giay: ',n);
readln
end.

9.

uses crt;
var t:longint;
begin
clrscr;
   write('Nhap so tien T: ');readln(t);
   writeln('So to tien 500: ',t div 500);
   t:=t mod 500;
   writeln('So to tien 100: ',t div 100);
   t:=t mod 100;
   writeln('So to tien 50: ',t div 50);
   t:=t mod 50;
   writeln('So to tien 20: ',t div 20);
   t:=t mod 20;
   writeln('So to tien 10: ',t div 10);
   t:=t mod 10;
readln
end.

Câu 8 :

program sksk;
uses crt;
var s, h, p, s1 : longint ;
begin
clrscr;
write('nhap so giay :');readln(s);
h := (s div 60 ) div 60;
p := (s - h*60*60) div 60;
s1 := s  - (h*60*60) - p*60;
writeln(s,' giay = ', h,' gio, ', p,' phut,', s1 ,' giay ');
readln
end.

Câu 9 :

program sksk;
uses crt;
var t, t500, t200, t100, t50, t20, t10 : longint;
begin
clrscr;
write('nhap so tien muon rut :');readln(t);
t500 := t div  500000;
t := t - (500000 * t500);
t200 := t div 200000;
t := t - (200000 * t200);
t100 := t div 100000;
t := t - (100000*t100);
t50 := t div 50000;
t := t - (50000 *t50);
t20 := t div 20000;
t :=t - (20000*t20);
t10 := t div 10000;
t :=t - (10000*t10);
writeln('so to 500 la :', t500);
writeln('so to 200 la :', t200);
writeln('so to 100 la :', t10);
writeln('so to 50 la :', t50);
writeln('so to 20 la :', t20);
writeln('so to 10 la :', t);
writeln('tong so to cac loai la :', t + t20+t50+t100+t200+t500 );
readln
end.