Program inputan_array (latihan array ke-1)

program input_array;
uses wincrt;
var i, n: integer;
nama: array [1..10] of string;
q: char;
begin
write ('Masukkan jumlah nama: ');
readln (n);
if (n<=10) then begin
for i:= 1 to n do begin
write ('Nama ke-', i, '= ');
readln (nama[i]);
end;
writeln ('Data Terimpan');
writeln;
end;
writeln ('Tampilkan data? (Y/T)');
readln (q);
if (q='Y') then begin
for i:= 1 to n do
writeln (nama[i]);
end
else
halt;
readln;
end.