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.