program NameOrder;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  name1, name2, name3 :string;

begin
  writeln('THE SORTING NAMES PROGRAM');
  writeln;
  writeln('Enter the first name...');
  readln( name1 );
  writeln('Enter the second name...');
  readln( name2 );
  writeln('Enter the third name...');
  readln( name3 );
if (name1 < name2) and (name1 < name3) then
  begin
    writeln('The names in alphabetical order are as follows:');
    writeln(name1 , '  ');
    if name2 < name3 then
    writeln(name2 , '  ');
  end;
writeln(name3);
readln;
writeln('Press <ENTER> to exit. Thank you.');
end.