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.

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