В паскале. Составить программу удвоения меньшего из двух.

var a,b:integer;begin  writeln('Введите  A, B');  readln(a,b);  if a = b then writeln('Ничего не удвоили, числа равны')   else  if a<b then begin      a:=a*2; writeln('удвоили А ',a);    end  else    if b<a then begin      b:=b*2; writeln('удвоили B ',b);    end;end.