Составить программу на паскале, которая печатает true…

uses crt; var x,y,z: integer; beginclrscr; writeln ('Vvedite x,y'); readln (x,y); if (x<0) and (y>0) thenbeginif (sqr (x)+sqr (y) < 36) then writeln ('True') elsewriteln ('False'); end elseif (x>0) and (y>0) and (sqr (x)+sqr (y) >9) and (sqr (x)+sqr (y) <36) then writeln ('True') else writeln ('False'); readln (); end.