uses
crt;
var
a:
array
[
1..5
]
of
integer
;
b,i:
begin
clrscR;
for
i:=
1
to
5
do
writeln
(
'Bir sayı giriniz'
);
readln(a[i]);
end
b:=
'Yazılanlar ='
,a[b]);
readln;
.