Program Tinhoc;

Uses Crt;

Var x:integer;

Begin

Clrscr;

Writeln(‘Nhap so x: ‘, readln(x));

If a>=0 then writeln(‘So duong’) else writeln(‘So am’);

Readln;

End.

uses crt;

var a:integer;

begin

clrscr;

write('Nhap a='); readln(a);</p><p>if a<0 then writeln(a,' la so am')

else if a>0 then writeln(a,' la so duong')

readln;

end.

Program B6;

Uses Crt;

Var x:integer;

Begin

Clrscr;

Writeln(‘Nhap so x: ‘, readln(x));

If a>=0 then writeln(‘So duong’) else writeln(‘So am’);

Readln;

End.

uses crt;

var x:integer;

begin

clrscr;

writeln(‘Nhap so x: ‘, readln(x));

if a>=0 then writeln(‘So duong’) else writeln(‘So am’);

readln;

end.