program ideone;
var
s1,x,y:string;
i,j,err,a,b,c,k: integer;
mas,mas2: array[1..255] of string;
mas1: array[1..255] of integer;

begin
readln(s1);

j:=1;

for i:=1 to length(s1) do
begin
if s1[i]<>' ' then mas[j]:=mas[j]+s1[i]
else j:=j+1;
end;

for i:=1 to 255 do
begin
val(mas[i],mas1[i],err);
if err<>0 then mas2[i]:=mas[i];
end;

a:=0;
i:=255;

while a=0 do
begin
i:=i-1;
if mas1[i]<>0 then a:=mas1[i];
end;



b:=a div 60;
c:=a-b*60;
k:=b - 10*(b div 10);

if (k=0) or (k=5) or (k=6) or (k=7) or (k=8) or (k=9) then x:='минут' else
  if (k=1) then x:='минута' else
    if (b<20) and ((k=2) or (k=3) or (k=4)) then x:='минут'
    else if (b>=20) and ((k=2) or (k=3) or (k=4)) then x:='минуты';

k:=c-10*(c div 10);

if (k=0) or (k=5) or (k=6) or (k=7) or (k=8) or (k=9) then y:='секунд' else
  if (k=1) then y:='секунда' else
    if (k=2) or (k=3) or (k=4) then y:='секунды';

for i:=1 to 255 do
begin
write (mas2[i],' ');
end;

write (b,' ',x,' ',c,' ',y);

end.