lets STUDY

program muncul;
uses wincrt;
var
x: array[1..100] of string;
i,n,z:integer;
begin
write('Masukkan banyak hari : ');readln(n);
writeln;
for i:=1 to n do
begin
write ('hari ke ',i,' = ');
readln (x[i]);
end;
begin
writeln;
write ('hari yang diinginkan= '); readln (z);
write ('Hari ke ' ,z,' adalah ',x[z]);
end;
end.