(* Chapter 10 - Program 2 *)
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 *)