Написать программу, которая удваивает меньшее из двух чисел и увеличивает на два большее из чисел

1

Ответы и объяснения

2013-11-14T10:24:44+00:00
program z;
var a,b: integer;
begin
readln(a,b);
if a > b then begin
 b:=b*2;
 a:=a+2;
end else if a<b then begin
 a:=a*2;
 b:=b+2;
end;

end.