Помогите отредактировать программу - Паскаль. Где-то ошибка.
Необходимо удалить первый кратный 3 элемент массива.
program udalenie;
var i,n,k:integer;
a:array[1..1000] of integer;
begin
assign (input,input.txt);
assign (output,output.txt);
reset (input);
rewrite (output);
readln(n);
for i:=1 to n do read (a[i]);
while i<=n do
if a[i] mod 3=0 then
begin
for i:=k to n-1 do
a[i]:=a[i+1];
n:=n-1; exit;
end;
for i:=1 to n do write(a[i], );
close (input);
close (output);
end.

Если первый кратный 3, то после срабатывания условия if a[i] mod 3=0 и удаления элемента, должен быть выход из цикла(break).

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.