MATERI PASCAL MODUS

program susunan;
uses wincrt;
var
x:array [1..100] of real;
i,n:integer;
begin
write('masukkan n banyaknya angka');readln(n);
for i:=1 to n do
begin
write(i,'=');readln(x[i]);
end;
write('panggil data ke- ');readln(i);
write(x[i]);
end.