uses crt;
var i,n,k:integer;
a:array[1..100] of integer;
begin
clrscr;
write('nhap so ptu:');readln(n);
write('nhap so k:');readln(k);
for i:=1 to n do
begin
 write('A[',i,']=');
 readln(a[i]);
 if trunc(sqrt(a[i]))=sqrt(a[i]) then a[i]:=k;
end;
for i:=1 to n do write(a[i],' ');
readln;
end.

uses crt;
var n,i,k: integer;
    a: array[1..100] of integer;
function cp(a: integer): boolean;
var i: integer;
begin
    cp:=false;
    if sqrt(a)=round(sqrt(a)) then cp:=true;
end;
begin
clrscr;
    readln(n,k);
    for i:=1 to n do begin
        read(a[i]);
        if cp(a[i]) then a[i]:=k;
    end;
    for i:=1 to n do write(a[i],' ');
    readln
end.