Информатика 9 класс очень Как будет выглядеть запись в программе паскаль. Надо решение полностью. Задание во вложениях

var

 n, i, k: integer;

 a, b: real;

begin

 read(n, a);

 k := 0;

 for i := 1 to n do

 begin

  read(b);

  if (b < a - 8) or (b > a + 8) then

    k := k + 1;

 end;

 if k > 0 then

  write(k)

 else

  write('нет');

end.

Объяснение: