for i:=0 to N do
begin
    writeln ("Enter ", i+1, "number: ");
    readln (N[i]);
end;

for i:=0 to N do
    write (N[i], " ", sqr(N[i]), " ", sqrt(N[i]), "\n");