Program Menggunakan Array

program latihan;
uses wincrt;
type
x = array [1..5] of integer;
var
y : x;
z : integer;
begin
for z:= 1 to 5 do
begin;
write ('Masukan Data ke-',z,':');
readln (y[z]);
end;
clrscr;
for z:= 1 to 5 do
writeln('Data Anda Adalah',y[z]);
end.