PASCAL的一道题目，请写出程序！！

来源：百度知道 编辑：UC知道 时间：2024/06/18 01:48:55
由键盘输入两组X,Y的值，由程序根据他们是否存在下图阴影区域内，输出不同的值。若在阴影内，输出TURE，否则输出FALSE

快帮帮忙写下这个程序，谢了！

program zd;
var x,y:real;
begin
write('x=');
readln(x);
write('y=');
readln(y);
if (x<=2)and(y<=2)
then write('true')
else write('false');
readln;
end.

program zhjh;
var
x,y:real;
begin
readln(x,y);
if (x<=2)and(x>=-2)and(y<=2)and(y>=-2) then writeln('TRUE') ELSE
writeln('FALSE');
end.

program zd;
var x,y:real;
begin
write('x=');
readln(x);
write('y=');
readln(y);
if (x<=2)and(y<=2)
then write('true')
else write('false');
readln;

program cs;
var x,y:real;
begin
readln(x,y);
if ((abs(x)<=1)and (abs(y)<=1)) then writeln('true') else writeln('false');
end.

program zhjh;
var
x,y:real;
begin
readln(x,y);
if (x<=2)and(x>=-2)and(y<=2)an