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.