const N=10;

function sq(number: integer): boolean;
var i: integer;
begin
  sq:=false;
  for i:=1 to round(sqrt(number)) do
    if i*i = number then
    begin
      sq:=true;
      break
     end
end;

var a: array[1..N] of integer;
    i, counter: integer;
begin
  counter:=0;
  writeln('Введите ', N, ' натуральных чисел:');
  for i:=1 to n do
    read(a[i]);
  writeln;
  for i:=1 to N do
  if sq(a[i]) then
  begin
    write(a[i], ' ');
    counter:=counter+1;
  end;
  if counter = 0 then
    write('Квадраты целых чисел не найдены')
end.