Написать программу на Паскале

program mdd; uses crt; var a,b,c,d: longint; beginclrscr; readln(a,b,c,d); if (a> b) and (a> c) and (a> d) and (d< a) and (d< c) and (d< b) then writeln('правда')else writeln(''неправда); readkey; end.

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

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

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

з                          з

                              з

з              з       

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

var a,b: real;

begin 

  readln(a,b);

  if a*b< 0 then writeln(a*b*2) else writeln(a*b*1.5);

end.

program dl9_meru3;

var a,s: real; n,i: integer

begin

writeln ('vvedit a i n(> 0)');

readln (a,n);

s: =0;  

a: =a+1;  

for i: =2 to n do

begin 

s: =s+a;

a: =a*a;

end;

writeln ('suma=',s);

readln

end.