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

Var
  x,y:integer;
  f:boolean;
begin
readln(x,y);
f:=false;
if sqr(x)+sqr(y)lt;36 then f:=true;
if (xgt;0) and (ygt;0) then f:=false;
writeln('Ответ: ',f)
end.

Var
  r :integer;
  x, y :real;

begin

  R:= 6;
  readln(x,y);
  if (x gt; 0) and (y gt; 0) = false then
    if sqr(x) + sqr(y) lt; sqr(r) then
      writeln('true')
    else
      writeln('false');
  if (x gt; 0) and (y gt; 0) = true then
    writeln('false');

end.