uses dos,crt;


var

minute : array [1..59] of string;
hour   : array [1..13] of string;
inpmin,inphour : byte;


procedure getinput;
var
s1 : string;
code : integer;
begin;
write('Hours: ');
readln(s1);
val(s1,inphour,code);
write('Minutes: ');
readln(s1);
val(s1,inpmin,code);
end;



begin;
clrscr;
minute[1]:='One minute past';
minute[2]:='Two minutes past';
minute[3]:='Three minutes past';
minute[4]:='Four minutes past';
minute[5]:='Five minutes past';
minute[6]:='Six minutes past';
minute[7]:='Seven minutes past';
minute[8]:='Eight minutes past';
minute[9]:='Nine minutes past';
minute[10]:='Ten minutes past';
minute[11]:='Eleven minutes past';
minute[12]:='Twelve minutes past';
minute[13]:='Thirteen minutes past';
minute[14]:='Fourteen minutes past';
minute[15]:='Quarter past';
minute[16]:='Sixteen minutes past';
minute[17]:='Seventeen minutes past';
minute[18]:='Eighteen minutes past';
minute[19]:='Nineteen minutes past';
minute[20]:='Twenty minutes past';
minute[21]:='Twenty one minutes past';
minute[22]:='Twenty two minutes past';
minute[23]:='Twenty three minutes past';
minute[24]:='Twenty four minutes past';
minute[25]:='Twenty five minutes past';
minute[26]:='Twenty six minutes past';
minute[27]:='Twenty seven minutes past';
minute[28]:='Twenty eight minutes past';
minute[29]:='Twenty nine minutes past';
minute[30]:='Half past';

minute[59]:='One minute to';
minute[58]:='Two minutes to';
minute[57]:='Three minutes to';
minute[56]:='Four minutes to';
minute[55]:='Five minutes to';
minute[54]:='Six minutes to';
minute[53]:='Seven minutes to';
minute[52]:='Eight minutes to';
minute[51]:='Nine minutes to';
minute[50]:='Ten minutes to';
minute[49]:='Eleven minutes to';
minute[48]:='Twelve minutes to';
minute[47]:='Thirteen minutes to';
minute[46]:='Fourteen minutes to';
minute[45]:='Quarter to';
minute[44]:='Sixteen minutes to';
minute[43]:='Seventeen minutes to';
minute[42]:='Eighteen minutes to';
minute[41]:='Nineteen minutes to';
minute[40]:='Twenty minutes to';
minute[39]:='Twenty one minutes to';
minute[38]:='Twenty two minutes to';
minute[37]:='Twenty three minutes to';
minute[36]:='Twenty four minutes to';
minute[35]:='Twenty five minutes to';
minute[34]:='Twenty six minutes to';
minute[33]:='Twenty seven minutes to';
minute[32]:='Twenty eight minutes to';
minute[31]:='Twenty nine minutes to';

hour[1]:='one';
hour[2]:='two';
hour[3]:='three';
hour[4]:='four';
hour[5]:='five';
hour[6]:='six';
hour[7]:='seven';
hour[8]:='eight';
hour[9]:='nine';
hour[10]:='ten';
hour[11]:='eleven';
hour[12]:='twelve';
hour[13]:='one';

repeat getinput until (inpmin>=0) and (inpmin<=59) and (inphour>=1) and (inphour<=12);

if (inpmin>0)  and (inpmin<=30) then writeln(minute[inpmin],' ',hour[inphour]);
if (inpmin>30) and (inpmin<=59) then writeln(minute[inpmin],' ',hour[inphour+1]);
if inpmin=0 then writeln(hour[inphour],' o''clock');

end.