uses crt;
var i,j,x,y,k,kq1,kq2: integer;
begin
clrscr;
    write('Nhap vao 3 gia tri: ');
    readln(x,y,k);
    for i:=0 to k div x do
        for j:=0 to k div y do 
            if i*x+j*y=k then begin
                kq1:=i;
                kq2:=j;
            end;
    write('So dong xu nhieu nhat de tra la: ',kq1+kq2);
    readln
end.

uses crt;
var x,y,t,i,j,vt1,vt2:longint;
begin
 clrscr;
  readln(x,y,t);
  for i:=0 to t div x do
   for j:=0 to t div y do
    if(i*x+j*y = t)then
        begin
         vt1:=i;
         vt2:=j;
        end;
  textcolor(lightred);
  writeln('So dong xu can su dung la: ',vt1+vt2);
  textcolor(lightcyan);
  write('Ta can : ',vt1,' dong xu gia tri la ',x,' va ',vt2,' dong xu gia tri la ',y);
 readln;
end.