pascal编程中的问题

program wuliao;
var
a,b,c;
begin
readln(a,b,c);
if (a<=0) or (b<=0) or (c<=0) then
begin
writeln('wrong'); //单引号还是双引号我忘了
halt;
end;
if (a+b<=c) or (a+c<=b) or (b+c<=a) then
begin
writeln('wrong'); //单引号还是双引号我忘了
halt;
end;
if (abs(a-b)>=c)) or (abs(a-c)>=b) or (abs(b-c)>=a) then
begin
writeln('wrong'); //单引号还是双引号我忘了
halt;
end;
writeln('right');
end.

闲的无聊，惊讶的发现我还记得pascal的语法。。。
大概就是这样吧
细节方面自己调

a,b,c:integer;

if (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a) then ...

program jiandan;
var a,b,c:real;
begin
read(a,b,c);
if (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a) then write('right') else write('wrong');