{
    In pascal String Comparsion is performed by =
    just like Character Comparasion
}

PROGRAM StringComparing;

USES
    sysutils;

VAR
    Name : String;

BEGIN
    IF ParamCount = 0 THEN
    BEGIN
        Writeln(StdErr, 'usage: ', ExtractFileName(ParamStr(0)), ' name');
        Halt(1);
    END;

    Name := ParamStr(1);

    IF Name = 'Mohsen Safari' THEN
    BEGIN
        WriteLn('Hello Mohsen Safari.');
        WriteLn('Welcome!');
    END
    ELSE
    BEGIN
        WriteLn('I don''t know you!');
        WriteLn('who are you?');
    END;
END.
