Взаданном массиве из n элементов на экран вывести квадрат шестого элемента

Program Karina;
uses CRT;
var a:array [1..1000] of integer;
n,i,k:integer;
begin
writeln('Введите ращмер массива');
readln(n);
for i:=1 to N do
readln(a[i]);
k:=a[6];
k:=k*k;
//(или k:=sqr(k))
writeln(k);
end.