Всем скажите кто сможет решить сейчас по информатике в паскале x*x + y*y < =4 при x = 1 а y= -1

Var x, y: real;
    b: boolean;
begin
     x := 1;
     y := -1;
     b := (x * x + y * y <= 4);
     writeln(b);
end.