[steve]

Questo è il mio codice:

Codice:

program esercizio;
uses crt;
var x,rad_x:real; (* x -> valore inserito dall'utente | rad_x -> radice quadrata di x *)

begin
    clrscr; (* pulisco lo schermo *)
    write('Inserire un numero: ');
    readln(x);
    if x>=0 then
        begin
        rad_x:=sqrt(x); (* io non sovrascrivo il valore di x, ho creato apposta 2 variabili differenti *)
        writeln('La radice quadrata di ',x,' è ',rad_x); (* questo è quello che ti manca, devi far vedere il valore della radice quadrata *)
        end
    else
        writeln('La radice quadrata di ,x, è un numero immaginario');
writeln('Premere invio per chiudere...');
readln (* pausa, il programma non si chiude e lo puoi avviare con 2 click sull'exe *)
end.

Tu hai calcolato il valore della radice quadrata, ma poi non lo fai vedere... basterebbe un write(x); per vederlo.
Probabilmente si può anche evitare di aprire il programma da prompt dei comandi, però è la prima volta che provo il pascal e non so dirti di più. Vedo di informarmi e ti faccio sapere.

[EDIT]
Per mettere in pausa basta mettere: readln prima di end. (ho modificato il mio programma ora)