Сделайте вывод о реакции крестьян и разночинной интеллигенции на реформу 1861 года.

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.

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