Вычислить указанные величины, зависящие от условий, с логических функций

var x, y:real;

begin

readln(x);

if (x<=-4) or (x>=4) then

y:=0

else if (x>-4) and (x<0) then

y:= -sqrt(4-(x+2)*(x+2))

else if (x>=0) and (x<4) then

y:=sqrt(4-(x-2)*(x-2));

write(y);

end.

укрытся одеялом и лечь спать,   и пить лекартва и остаться дома

program gh;

    var a: array[ 1..10] of integer;

                i: integer;

begin

  for i: =1 to 10 do

        begin

              a[i] : = random(20) + 20;

              write(a[i]);

        end;

end.