Program sixth;
Var today:integer;
Begin
write('Please enter Today''s day of week :');
readln(today);
if today=5 then writeln('Friday.');writeln('Today is Black Friday');
End.