uses crt;
var n,i:longint;
begin
clrscr;
write('Nhap 1 so:');readln(n);
while (i*(i+1)<>n)and(i<n-1) do inc(i);
if i+1<>n then writeln('Co ',i,' ',i+1) else writeln('Khong');
readln
end.
Bài này mình cũng có trả lời bên kia rồi nên không phải là copy của người khác nhé.