program ac;
var
a,b:integer;
//var
c,d:real;
begin
if a>b then
//a:=1
//c:=c+c*d 
//else
begin
 if a>4|b<3
//then //if a>4|b<3
//then
a:=3
else*/
a:=a+3+3
else
begin
a:=1+2+3+4+5+6;
a:=a+3+3;
a:=3+((3+a*b)+a)*(b+7);
//end;
end;
while(a>b|c<d)
do
begin
c:=a+3+3;
a:=1+2+3+4+5+6;
end;


end.