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

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.