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

1) Программа выбора большего числа:

program first;

var

a, b:integer;

begin

readln (a, b);

if a>b then a:=a*2;

if b>a then b:=b*2;

writeln ('a=', a);

writeln ('b=', b);

end.

Учтите, что программа не увеличивает никакое значение, если обе переменные равны, т. к. это не определенно алгоритмом.

2) Программа определения положительного

program second;

var

a:integer;

begin

readln (a);

if a>0 then a:=a+10;

if a<0 then a:=a-10;

writeln ('a=', a);

end.

Учтите, что программа нечего не делает с переменной, если она ровна нулю, т. к. это значение не является ни положительным, ни отрицательным.