1)Даны два числа...

1)Даны два числа А и В на 10 . Выбрать большее из них и удвоить .2)Увеличить число А на 10 , если оно положительное , в другом случае уменьшить .

 

1)
var
a,b:integer;
begin
readln(a,b);
if a>b then writeln(a*2);
if b>a then writeln(b*2);
end.


2)
var
a:integer;
begin
readln(a);
if a>0 then writeln(a+10);
if a<0 then writeln(a-10);
end.


Надеюсь на лучший ответ