Question

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

Answer 1

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.