Getting Started with the Pascal tutorial, source
Submitted By:
WEBMASTER
Rating:
(Not rated) (
Rate It)
(* Chapter 10 - Program 6 *)
program Read_A_String;
var Index : byte;
Field : string[10];
begin
for Index := 1 to 5 do begin
Write('Enter up to 10 characters ');
Readln(Field);
Writeln('The data you entered was (',Field,')');
end;
end.
