написать программы в Паскаль

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.