Program Dengan Array of String

uses wincrt;
 
var x : array[1..3] of string;
    a : integer;
begin
  for a := 1 to 3 do begin
    write('input ', a, ' : ');
    readln(x[a]);
  end;
 
  writeln;
  write('output : ');
  for a := 1 to 3 do
    write(x[a],' ');
end.

sumber nusinau.com