Zitat:
program wurzel;
uses crt;
var a,w :extended;
begin
clrscr;
writeln;
writeln('Zahl eingeben: ');readln(a);
w:=sqrt(a) ;
writeln('Wurzel ist: ',w);
readln;
end.