Nhập vào 3 số a,b,c. Hãy cho biết 3 số đó có đều dương, đều âm hay vừa âm vừa dương ko?

program ct;

uses crt;

var a,b,c:longint;

begin

clrscr;

write('nhap a,b,c: ');raedln(a,b,c);

if (a>0) and(b>) and(c>0) then write('deu duong) else 

if (a<0) and(b<0) and (c<0) then write('deu am') else write('vua am vua duong');

readln;

end.

var a,b,c,d:longint;

begin

  write(nhap 3 so: );read(a,b,c);

  if (a>=0) and (b>=0) and (c>=0) then

    begin

      d:=1;

      write('3 so deu duong');

    end;

  if (a<0) and (b<0) and (c<0) then

    begin

      d:=2; 

      write('cac so deu am');

    end;

  if d=0 then write('3 so vua am vua duong');

end.