var
r, x, y :integer;
begin
randomize;
writeln('Введите координаты');
read(x);
read(y);
r := random(10)+1;
writeln('Радиус равен ', r);
if (x*x+y*y <= r*r) then
writeln('Точка принадлежит окружности')
else
writeln('Точка не принадлежит окружности');
end.
Я напишу это программу на языке С++
#include <iostream>
#include <cmath>
using namespace std;
int main() {
int n,i=1;
cin>>n;
while(pow(i,2)<=n) {
cout<<pow(i,2)<<" ";
i++; }
return 0;}