const Nmass=100;
Var A:array[1..Nmass] of integer;
i,N,k:byte;
begin
writeln('введите число элементов в массиве A');
readln(N);
writeln('вводим элементы массива A:');
for i:=1 to N do
begin
write('A[',i,']=');
readln(A [i]);
end;
writeln('Исходный массив A:');
for i:=1 to N do
write ( A[i]:5);
writeln;
for i:=1 to N do
а как обозначить последние k элементы( у меня это последние 3 элемента) в программе?