pascal viết chương trình nhập 2 số nguyên kiểm tra a b cùng dấu hay trái dấu

program kiemtra;

uses crt;

var a,b:integer;

begin

clrscr;

write(‘Nhap a: ‘);  readln(a);

write(‘Nhap b: ‘);  readln(b);

if ((a>=0) and (b>=0)) or ((a<=0) and (b<=0)) then write(a,’ va ‘,b,’ cung dau)

  else write(a,’ va ‘,b,’ trai dau);

readln

end.