LiFT_2

program LiFT;

uses CRT;
Const hl=8; dv=10; d=87; g=75; max= 500;
Var  a,b,c:integer;

BEGIN
Writeln('Vvesty kilkist hlopciv');
Read(a);
b:=a*8;
if b < 500 then writeln('yes') else writeln('no');
Writeln('Vvesty kilkist divchat');
Read(b);
c:=b*10;
if b < 500 then writeln('yes') else writeln('no');
END.