1) Определить будет ли принят на работе сотрудник если его стаж больше 10лет и возраст меньше 30 2)Введите двузначное число и пусть программа запишет его наоборот 3)Написать программу которая определит четное и нечётное число.Помогите пожалуйста :) Ответы к этим заданиям нужно записать как программу в Паскале

3. var a: integer; begin  read(a);  if(a mod 2 = 0) then writeln ('Число' , a, 'четное') else writeln ('Число' , a, 'нечетное'); end.2. var a: integer; begin   read(a);   while a>0 do begin     writeln(a mod 10);     a:=a div 10;   end;end.