Помогите решить задачкe

[SNUPY]

Решаю на паскале:

Var 
  xA, yA, x0, y0, R:Real;
begin
  readln(xA, yA, y0, x0, R);
  IF R*R<(sqr(xA-x0)+sqr(yA-y0)) then writeln('Входит') esle writeln('не входит');
end;