1) Даны два числа.Если они оба четные, то найдите сумму чисел, иначе разность. 2) Даны два числа. Если сумма чисел больше 1, то найдите целую часть от деления, иначе остаток от деления. Пожалуйста с понятным решением..

1)

var a,b:integer;beginreadln (a,b);if (a mod 2 =0) and (b mod 2=0) then writeln (a+b);if (a mod 2<>0) and (b mod 2<>0) then writeln (a-b);end.

2)

var a,b:integer;beginreadln (a,b);if (a+b>1) then writeln (a mod b)elsewriteln (a div 10);end.