program p12;
uses Crt;

var a,b:longint;

begin
clrscr;
repeat
write('Zadej cislo a : ');
readln(a);
write('Zadej cislo b : ');
readln(b);
until (a<>b);
if b>a then begin b:=a+b; a:=b-a; b:=b-a;end;
writeln('a = ',a,'   b = ',b);
writeln(a,' > ',b);
repeat until keypressed;
end.