编写程序:输入一个实数,如果小于0,显示"无意义",否则计算并输出其算式平方根

Pascal语言：

program ex;
var
a:real;
begin
readln(a);
if a<=0 then writeln('无意义')
else writeln(sqrt(a));
readln;
end.

QBASIC的
cls
a=0
input"输入一个数",a
if a<0 then print"无意义"
else print"a的平方根为",sqr(a)

QBASIC的
CLS
INPUT A
IF A<0 THEN PRINT"无意义" ELSE PRINT "A=";SQR(A)
END

QBASIC

cls
input a
if a<o then print :“无意义”else print "a=";sqr(a)
end