with Ada.Text_IO;
with Ada.Integer_Text_IO;

use Ada.Text_IO;
use Ada.Integer_Text_IO;

procedure main is

   X : Integer;

begin

   Get(X);
   if (X >= 30) then Put_Line("Yes");
   else Put_Line("No");
   end if;

end main;