PROGRAM FIRST_1;            {a simple program to ask for your name}
VAR                         {we'll use a string VARiable for your name}
    YOUR_NAME : STRING;

BEGIN
    WRITELN('This is my first program.');
    REPEAT
        WRITE('Please type your name, then <CR>: ');
        READLN(YOUR_NAME);
    UNTIL LENGTH(YOUR_NAME)  >  0;
    IF LENGTH(YOUR_NAME)  <  10 
        THEN WRITELN('What a short name!')
        ELSE WRITELN('What a long name!');
    WRITELN('Hi, ', YOUR_NAME);
    WRITELN('The end of my program.');
END.                        {use 'S' to switch screens here!}