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

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