1) var
a,s:integer;
begin
writeln('введите a');
readln(a);
repeat
if a mod 2 =0 then s:=s+a mod 10;
a:= a div 10;
until a=0;
writeln('сумма четных цифр числа а=',s);
end.
2)var a,b,i,r:integer;
begin
r:=1;
writeln('введите a');
readln(a);
writeln('введите b');
readln(b);
if (a mod 2 =0) and (b mod 2 = 0) then for i:=1 to b do r:=r*a;
if (a mod 2 =1) and (b mod 2 = 1) then for i:=1 to a do r:=r*b;
if ((a mod 2 =0) and (b mod 2 = 0)) or ((a mod 2 =1) and (b mod 2 = 1))
then writeln(r);
end.
