Решите задачу ** языке паскаль

Question

Решите задачу на языке паскаль

---

Answer 1

Program n1;
var a: array [0..99999] of longint;
i,k,n: longint;
begin
readln(n);
for i:=0 to n-1 do read(a[i]);
readln(k);
for i:=(n-k) mod n to n-1 do write(a[i],' ');
if k<>0 then for i:=0 to (n-k) mod n-1 do write(a[i],' ');
end.

Comments

почему-то пишет частичное решение(

---

что-то всетаки лучше, чем ничего)