Может я тупой, но я не понимаю что от меня хотят, составить программу по этим строчкам,где n=10 Опции

[Рома]

составить программу по этим строчкам,где n=10
K:=A[n]
For i:=n downto 2 do
A[i]:= A[i-1];
A[1]:=K;

[Федосеев Павел]

Начало простое:

program MyCoolProgram;
begin
end. 

Потом наполняешь эту авоську:

program MyCoolProgram;
begin
  K:=A[n];
  For i:=n downto 2 do
    A[i]:= A[i-1];
  A[1]:=K;
end. 

Далее смотришь ошибки компиляции - не описаны переменные - и исправляешь их:

program MyCoolProgram;
const
  n=10;
var
  i : integer;
  A : array [1..n] of real;
begin
  K:=A[n];
  For i:=n downto 2 do
    A[i]:= A[i-1];
  A[1]:=K;
end. 

Я оставил тебе возможность самостоятельно описать K.