PROGRAM read_some_variables;

VAR index  : BYTE;
    number1,number2,number3 : INTEGER;

BEGIN  (* main program *)

WRITELN('This is the ''READ'' portion of the program');
FOR index := 1 TO 5 DO
BEGIN
  WRITE('Enter up to three integers ');
  READ(number1,number2,number3);
  WRITELN('Thank you');
  WRITELN('The numbers entered were ',number1:6,number2:6,number3:6);
END;

WRITELN;
WRITELN('This is the ''READLN'' portion of the program');
FOR index := 1 TO 5 DO
BEGIN
  WRITE('Enter up to three integers ');
  READLN(number1,number2,number3);
  WRITELN('Thank you');
  WRITELN('The numbers entered were ',number1:6,number2:6,number3:6);
END;

END.  (* of main program *)