Сделать) удалить первый элемент массива кратный 3.

Const      n = 10;   var    a : array [1..n] of integer;     i,m : integer;         begin   for i : = 1 to n do //при формировании забил     a[i] : = i;                 //просто индексы     m : = 0;     i : = 1;   while (m = 0)   and (i< =n) do      begin      if a[i] mod 3 = 0 then        begin          a[i] : = 0;           m : = 1;         end ;       i : = i +1;       end;       for i : = 1 to n do    writeln (a[i]);     end. 

Главное слово информация(дальше слова идут на каждую букву, начиная с первой) сми - 1) сокращенная аббревиатура средств распростанения массовой информации.   книги - 2) одно из видов печатной продукции, состоящее из сброшюрованных или отдельных бумажных листов(страниц) на которые нанесена графическая или текстовая информация? дезинформация - 3)  заведомо ложная информация по другому? общение -  4) коммуникативный способ получать информацию? - 5) один из способов получать информацию о развитии человечества? компьютер -  6) устройство открывающее доступ к огромному количеству информации. массовая - 7) вид информации  содержащий тривиальные сведения и оперирующий набором понятий, понятным большей части  социума это? социум - 8) группа людей связных между собой теми или иными отношениями и обменивающиеся информацией называется? истинная - 9) как по другому называется  достоверная информация? актуальная - 10) как называется  информация, ценная в данный момент времени? такой сойдет?

Program m;   var old, new: real;   k: integer;   begin   write('vvod x');   readln(old);   write('vvod x');   readln(new);   x: =0;   repeat   if new*old< 0 then k: =k+1;   old: =new;   write('vvod x');   readln(new)   until new=0;   if k> 0 then   writeln('posledovatelnost menyaet znak', k, 'raz')   else writeln('posledovatelnost ne menyaet znak');   end.