1)var a:integer; begin writeln('Введите число'); readln(a); if a mod 2=0 then writeln('Число чётное') else writeln('Число нечётное'); end. 2)var a,b:integer; begin writeln('Введите число'); readln(a); b:= a div 100; if b>9 then writeln('Ошибка') else begin writeln('Первая цифра это'); writeln (b); if b mod 3=0 then writeln('Первая цифра числа делится на 3') else writeln('Первая цифра числа не делится на 3');end; end.