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

1)

var
a,b:integer;
begin
readln (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;
begin
readln (a,b);
if (a+b>1) then writeln (a mod b)
else
writeln (a div 10);
end.