Где-то в поле робота находится горизонтальная стена с отверстием в одну клетку, размеры которой неизвестны. робот из произвольной клетки над стеной, но обязательно напротив нее, должен дойти до стены и закрасить все клетки под ней, как показано на рисунке.

паскаль

uses crt; var

  a,b,c,s: real; begin  read(a,b);   c: =sqrt(sqr(a)+sqr(b));   writeln('c=',c);   s: =(a*b)/2;   writeln('s=',s); end.

почитай тут 

var

n: integer;

begin

readln(n);

case n mod 12 of

4: writeln('год крысы');

5: writeln('год коровы');

6: writeln('год тигра');

7: writeln('год зайца');

8: writeln('год дракона');

9: writeln('год змеи');

10: writeln('год лошади');

11: writeln('год овцы');

0: writeln('год обезьяны');

1: writeln('год петуха');

2: writeln('год собаки');

3: writeln('год свиньи');

end;

end.

стены, ученики, террористы(учителя : d), парты ии т.д.

разрушить : d,