Viết chuong trình nhập vào 2 số, kiểm tra xem số vừa nhập là số âm hay số dương và in ra màn hình

uses crt;
var a,b:longint;
begin
clrscr;
   write('Nhap vao hai so nguyen a,b: ');readln(a,b);
   if a>0 then writeln('a la so duong') else
   if a<0 then writeln('a la so am') else
   writeln('a la so khong am khong duong');
   if b>0 then writeln('b la so duong') else
   if b<0 then writeln('b la so am') else
   writeln('b la so khong am khong duong');
readln
end.

Program bai_lam;

uses crt;

var a,b:integer;

Begin

Write('nhap gia tri cho a');readln(a);

Write('nhap gia tri cho b');readln(b);

If a>0 then write('a la so duong');

                   else ('a la so am');

If b>0 then write('b la so duong');

                   else ('b la so am');

Readln;

End.