Uses crt;
Var r,g,t,a:integer;
Begin
r:=0;
g:=0;
t:=0;
a:=0;
While r<=1 do Begin
g:=0;
While g<=2 do Begin
t:=0;
While t<=4 do Begin
a:=0;
While a<=10 do Begin
If r*100+g*50+t*25+a*10=100 Then
writeln('Роз: ',r,' гвоздик: ',g,' тюльпанов: ',t,' астр: ',a);
a:=a+1;
End;
t:=t+1;
End;
g:=g+1;
End;
r:=r+1;
End;
End.