Паскаль

Дано число k и челочисленный массив размера N. Поменять местами первую / последнюю и k-ю серии массива. Если серии в массиве меньше k , то вывести массив без изменений.

program esep1;

uses crt;

var n,k,x,i:integer;

a: array[1..100] of integer;

begin

clrscr;

write('Vvedite k->');

readln(k);

write('Vvedite n->');

readln(n);

for i:=1 to n do

begin

write('a[',i,']=');

readln(a[i]);

end;

if(n<k) then

begin

writeln('Massiv bez izmeni');

for i:=1 to n do

write('a[',i,']=',a[i],' ');

end

else

begin

x:=a[1];

a[1]:=a[n];

a[n]:=x;

a[k]:=k;

writeln('Massiv s izmenoi');

for i:=1 to n do

write('a[',i,']=',a[i],' ');

end;

readkey;

end.