怎么回事,我有上传图片啊而且论坛说符合条件,怎么看不到?

算了,直接说题目好了:
用bool
    输入,x,y   若1<=x*x+y*y<=4显示true 否则false
哪位能发个程序?我不胜感激
拜托多体谅初学者~~

program bool；
  var x，y：integer；
         a：boolean；
  begin
    read(x,y);
    if （1<=x*x+y*y）and (x*x+y*y<=4) then a:=true
                                      else a:=false;
    writeln(a);
  end.
你们教材太强了，这都出错

var x,y:integer;
begin
  read(x,y);
  writeln(1<=x*x+y*y);
end.