Для конкурсного отбора манекенщиц приглашаются девушки не ниже 180 см. определить будет ли допущена таня к участию в конкурсе

Program test; var r: real; begin write('введите рост манекенщицы: '); readln(r); if r> 180 then writeln('манекенщицa  допущена  к участию в конкурсе')else  writeln('манекенщицa не допущена  к участию в конкурсе'); end.

program pr;

var i: integer;

      mas: array[1..7]of integer;

begin

for i: =1 to 7 do 

begin

writeln ('введите температуру ', i ,' сентября');

readln (mas[i]);

end;

for i: =1 to 7 do writeln (i, '  сентября температура была  ' mas[i]);

readln;

end.

якщо загородка - прямокутник,

умовно з - це заєць,

то схема розташування зайців така:

 

з                          з

 

                              з

з              з       

 

три зайці - по кутках, два - біля стінок загородки.