program thu_tuc;
uses crt;
var a,b:integer;
{---Thu-tuc-hoan-doi---}
procedure hoandoi(a,b:integer);
var tg:integer;
begin
tg:=a;
a:=b;
b:=tg;
writeln('a= ',a,' b= ',b);
end;
{---Thu-tuc-kiem-tra---}
program lonhon(a,b:integer);
begin
if a=b then write('Hai so bang nhau')
else if a>b then write('a lon hon')
else write('b lon hon');
end;
{---Chuong-trinh-chinh---}
BEGIN
clrscr;
write('Nhap a: '); readln(a);
write('Nhap b: '); readln(b);
hoandoi(a,b);
lonhon(a,b);
readln;
end.