program p1;
label 1;
var A,B,vr:integer;
    prod:char;
 
begin
1:write('A= '); readln(A);
write('B= '); readln(B);
 
if A<B then
begin vr:=A; A:=B; B:=vr; end;
writeln('_____');
writeln('A= ',A);
writeln('B= ',B);
 
write('Vi xotite prodoljiti? (y/n) ');  readln(prod);
if prod='y' then goto 1;
readln;
end.