1.Найти сумму чётных цифр числа. uses crt;var a,x:integer;i,s:integer;beginclrscr;writeln('Vvedite chislo');readln( a ); x:=a;s:=0;while ( x<>0 ) dobeginif x mod 2 =0 then s:= s + (x mod 10);x:= x div 10;end;writeln( 'Summa= ', s );readln;end.   2.Вывести на экран таблицу умножения. uses crt;var a: array [1..10,1..10] of integer;i,j:integer;beginclrscr;for i:=2 to 10 dobeginwriteln;for j:=1 to 10 dowrite(i*j,'  ');end;writeln;readln;end.   3.Найти все двухзначные числа, сумма которых равна