program soft;

{$APPTYPE CONSOLE}

uses windows;

var
parameter: string;
begin
   parameter:=ParamStr(1);
   if parameter = '/message' then
   begin
     Writeln('Parameter /message.');
   end
   else
   begin
     Writeln('No actual parameters.');
   end;

write('Press key Enter for Exit');
readln;
end.