1)Даны два числа А и В на 10 . Выбрать большее

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

program first;

var
a,b:integer;
begin
readln(a,b);
if agt;b then a:=a*2;
if bgt;a then b:=b*2;
writeln(a=,a);
writeln(b=,b);
end.

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

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

program second;

var
a:integer;
begin
readln(a);
if agt;0 then a:=a+10;
if alt;0 then a:=a-10;
writeln(a=,a);
end.

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