Código Delphi [-] while (division <= numero) do
while (division <= numero) do
Código Delphi [-] while (division*division <= numero) do
while (division*division <= numero) do
Código Delphi [-] confir := confir +1;
confir := confir +1;
Código Delphi [-] memo1.Lines.Add(inttostr(numero));
memo1.Lines.Add(inttostr(numero));