Verified answer

Ответ:

1)

а) логическое выражение:

(a=b) AND (b=c)

б) логическое выражение:

c=(a+b)/2

в) логическое выражение:

(N div 1000)+((N mod 1000) div 100)+((N mod 100) div 10)+(N mod 10)>(N div 1000)*((N mod 1000) div 100)*((N mod 100) div 10)*(N mod 10)+1

2)

var x, y: real;

b:boolean;

begin

readln(x,y);

b:=(x>=0) AND (y>=0) AND (y+x>=1) AND (x*x+y*y<=2*2);

writeln(b);

end.