//Tính căn bậc 2 của một số

PROGRAM Tinh_can_bac_hai ;

VAR  

            a : Real ;

BEGIN

            Write ( Nhập số a =  );

            Readln(a) ;

            IF a < 0 THEN Write (' a : 10 : 2 , là số âm nên không lấy căn được !!! ')

            ELSE

                  Writeln (' Căn số bậc 2 của , a : 2 : 2 , la , SQRT(a) :10 : 3 ');

            Readln; {Dừng màn hình để xem kết quả}

END.