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.

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