Проверьте на ошибки)))

[Daniel.nobody]

program dsdsds;
var
a:array[1..100] of integer;
i,r,n,k,j:integer;
begin
read(n,k);
for i:=1 to n do
read(a[i]);
for i:=1 to k do
begin
for j:=1 to n do
if (j=1) then r:=a[j] else a[j-1]:=a[j];
a[n]:=r;
end;
for i:=1 to n do
write(a[i],' ');
readln
end.

[Lia]

Тема перемещена из форума «Великая теорема Ферма» в форум «Карантин»
по следующим причинам:

- Неинформативный заголовок,
- На какой предмет проверить? Отсутствует полная формулировка темы.
- И оформите код с помощью подсветки синтаксиса, пожалуйста.

Исправьте все Ваши ошибки и сообщите об этом в теме Сообщение в карантине исправлено.
Настоятельно рекомендуется ознакомиться с темами Что такое карантин и что нужно делать, чтобы там оказаться и Правила научного форума.