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 (rh) 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