program pesanlokasiArray;
uses wincrt;
var nama:array [1..5] of integer;
i:integer;
a:byte;
akar:real;

begin
for i:=1 to 5 do

begin
write(‘Masukan nilai ke- ‘,i,’ adalah ‘);
readln(nama[i]);
end;
writeln(‘Akar dari urutan ke-‘);
readln(i);
akar:= sqrt(nama[i]);
writeln(‘adalah = ‘, akar:2:4);
end.