Pascal ABC
Середню групу дитячого садочку вивели на прогулянку. Скільки дівчаток і скільки хлопчиків видно з-за паркану,якщо зріст хлопчиків задається у см відємними числами,а дівчаток додатніми числами у вигляді цілих значень а1,а2,..,an?Крім того у дівчаток на голові бантик висотою 10 см,а висота паркану Н см?

var  i,n,h,m,d,r:integer;begin  Write('Количество детей: '); Read(n);  Write('Высота забора: '); Read(h);  Writeln('Вводите через пробел рост детей (мальчиков - с минусом');  m:=0; d:=0;  for i:=1 to n do  begin    Read(r);    if (r<0) and (-r>h) then Inc(m)    else      if r+10>h then Inc(d)  end;  Writeln('Видно мальчиков- ',m,', девочек- ',d)end.  Контрольное решениеКоличество детей: 8Высота забора: 112Вводите через пробел рост детей (мальчиков - с минусом-119 -124 118 107 -115 113 -111 105Видно мальчиков- 3, девочек- 4