uses crt;
var dung, nam , gia : integer;
begin clrscr;
 for dung := 1 to 100 do
 for nam := 1 to 100 do
 for gia :=1 to 100 do
 begin
 if (nam + dung+gia = 100) and (5*dung+3*nam+gia/3 = 100) then
 writeln(' So trau dung :',dung:3, ' so trau nam la :', nam:3, 'so trau gia la :',gia:3);
 end;
 readln
 end.

Program Hotboy ;

Uses crt;

Var x,y,z:byte;

Begin

Clrscr;

 For x:=0 to 100

 For y:=0 to 100 do

 For z:=0 to 100 do 

 If (x+y+z=100) and (x*5+y*3+z/5=100) then

Begin

 Writeln('Trau dung la',x);

 Writeln('Trau nam la',y);

 Writeln('Trau nghe: ',z);

 End;                                       

 Readln

End.