if a<>b then Writeln (a,' giong ',b) else write (a,' khac ',b);
chương trình:
uses crt;
var a,b: integer;
begin
clrscr;
write ('nhap a: '); readln (a);
write ('nhap b: '); readln (b);
if a<>b then Writeln (a,' giong ',b) else write (a,' khac ',b);
readln;
end.