Втреугольной рамке 13 шариков, как видно на картинке. если поднять рамку за угол, то некоторые шарики покатятся вниз.

мы говорим, что шарик в опасности, если:

1. cправа снизу или слева снизу от него есть пустое место;
2. cправа снизу или слева снизу от него другой шарик в опасности;

вопрос:
сколько шариков не находятся в опасности?

можно назвать - собака 

или 

агент @ мail.ru 

если текст распознан, то да. т. е. наобходима программа разспознования fine reader

program pogoda; var t: real; begin write('t='); readln(t); if t> 10 then writeln ('хорошая погода') else begin ; writeln('плохая погода'); end; end.

program 1;

var i, dlina, shirina, visota,  n, s, v : integer; beginwriteln(’введите число залов‘); readln (n); for  i: =1  to  n  do  beginwriteln(’введите длину,ширину и высоту зала‘); readln (dlina, shirina, visota); s: =dlina*shirina; v: =s*visota; writeln(‘площадь  пола=’,s,’  объем  зала=‘,v); endend.

если это 8-9 класс, то должно быть