Исправлено:
program HelloWorld;
var
n, k: real;
begin
write('introdu numaruol: ');
readln(n);
k := sqrt( n) ;
writeln('K=', k);
end.
