Актуальность темы компьютерные объекты

//как-то громоздко получилось, но я так вижу. эх, выходные. const n=5; var a: array[1..n] of integer; b: array[0..8] of integer; ar: array[1..n] of integer; i,c,j: integer; begin randomize; writeln('array: '); for i: =1 to n do begin a[i]: =random(8); write(a[i]: 4); end; for i: =1 to n do   begin;   for j: =0 to 8 do     if a[i]=j then inc(b[j]);   end; for i: =1 to n do   begin;   for j: =0 to 8 do     if (b[j]> 1) and (a[i]=j) then a[i]: =9;   if a[i]< > 9 then   begin;     inc(c);     ar[c]: =a[i];   end;   end;   writeln;   for i: =0 to 8 do  writeln(i,'=',b[i]); writeln; writeln('final array: '); for i: =1 to n do if a[i]=9 then a[i]: =0; for i: =1 to c do begin;   a[i]: =ar[i];   write(a[i]: 4); end; end.

Программа на языке pascal abc имеет следующий вид: program имя программы; раздел подключения модулей  раздел описаний  begin  операторы  end. первая строка называется заголовком программы и не является обязательной. раздел подключения модулей начинается со служебного слова uses, за которым следует список имен модулей, перечисляемых через запятую. раздел описаний может включать разделы описания переменных, констант, типов, процедур и функций, которые следуют друг за другом в произвольном порядке. раздел подключения модулей и раздел описаний могут отсутствовать. операторы отделяются один от другого символом "точка с запятой"