Написать ! pascalabc. введите массив из 5 элементов с клавиатуры и найдите количество элементов, старшая цифра которых равна 8.

Var a: array [1..5] of integer; i, amount: integer; begin       read(a[1], a[2], a[3], a[4], a[5]);       amount : = 0;       for i : = 1 to 5 do       begin           while a[i] > = 10 do           begin                 a[i] : = a[i] div 10;           end;           if a[i] = 8           then               amount : = amount + 1;       end;       writeln(amount); end.

а)домащняя библиотека

в виде таблицы

1.номер

2.название

3.автор

4.полка

б)1.номер

2.слово

3.вопрос

4.род

5.число

6.падеж

в)1.номер

2.имя

3.фамилия

4.отчество

5.телефон

6.адрес

7.дата рождения

8.хобби

var

  i,n,a: integer;

begin

  readln(n);

for i: =1 to n do

begin

  read(a);

if (a mod 3=0)and(a mod 5> 0) then write(a,' ');

end;

writeln;

end.