Bài 1:
var n,d:int64;
    i:longint;
begin
 readln(n);
while n>=500000 do
begin
    n := n - 500000;
    inc(d);
end;
while n >= 200000 do
begin
     n := n - 200000;
     inc(d);
end;
while n >= 100000 do
begin
    n := n - 100000;
    inc(d);
end;
writeln(d);
readln
end.
Bài 2:
var s,st:string;
begin
write('Nhap nguoi choi thu 1 = ');readln(s);
write('Nhap nguoi choi thu 2 = ');readln(st);
if (s = 'keo') and (st = 'giay') then writeln('keo thang')
 else if (st = 'keo') and (s = 'giay') then writeln('keo thang');
if (s = 'giay') and (st = 'da') then writeln('giay thang')
 else if (st = 'giay') and (s = 'da') then writeln('giay thang');
if (s = 'da') and (st = 'keo') then writeln('da thang')
 else if (st = 'da') and (s = 'keo') then writeln('da thang');
readln
end.