program dropict;

uses sysutils;
Var YY,MM,DD : Word;
subject : longint;
function drop(subject:longint):longint;
begin
	if subject = 1 then drop := 1;

end;
begin
	subject :=1;
	if drop(subject)=1 do begin
	      writeln('You can drop ict ', 'by',  DeCodeDate (Date,YY,MM,DD),' ! ');
	end;
        else writeln('You cannot drop yet!');
        ......
end.