Getting Started with the Pascal tutorial, source
Submitted By:
WEBMASTER
Rating:
(Not rated) (
Rate It)
(* 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 *)
