Программирование на языке Паскаль ​

Плагиа́т — умышленно совершаемое физическим лицом незаконное использование или распоряжение охраняемыми результатами чужого творческого труда, которое сопровождается доведением до других лиц ложных сведений о себе как о действительном авторе.

А́вторское пра́во — в объективном смысле — институт гражданского права, регулирующий правоотношения, связанные с созданием и использованием (изданием, исполнением, показом и т. д.) произведений науки, литературы или искусства, то есть объективных результатов творческой деятельности людей в этих областях.

Однако в литературе есть такое явление: "Пойман - не вор". Или "Этот плагиат - кого надо плагиат".

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.