uses crt; var a,t:integer; begin clrscr; writeln('bir sayı giriniz:');readln(a); t:=sqrt(a); writeln('sonuç:',t); readln; end. {doğukan güney}