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;
    REPEAT
        WRITE;
        READLN;
    UNTIL LENGTH  >  0;
    IF LENGTH  <  10
        THEN WRITELN
        ELSE WRITELN;
    WRITELN;
    WRITELN;
END.                        {use 'S' to switch screens here!}