Составьте программу, определяющую, лежит ли точка с указанными координатами X, Y на окружности радиуса R с центром в начале координат — Pascal(Паскаль)

VAR
  x,y:integer;
  r:word;
BEGIN
  write('Введите  координату X: ');
  readln(x);
  write('Введите  координату Y: ');
  readln(y);
  write('Введите  длину радиуса R: ');
  readln(r);
  if (sqr(x)+sqr(y))=r  then writeln('Точка лежит на окружности!')
  else writeln('Точка не лежит на окружности!');
END.