Составьте программы:
1. Определить является ли число чётным
2. Найти первую цифру 3-х значного числа и определить делится ли она на 3

1)var a:integer;beginwriteln('Введите число');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 beginwriteln('Первая цифра это');writeln (b);if b mod 3=0 then writeln('Первая цифра числа делится на 3')else writeln('Первая цифра числа не делится на 3');end; end.