Question

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

Answer 1

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.