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

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