Pascal abc составить программу, которая определяет подходит кандидат на работу или нет. возраст: не больше 50, не меньше 17 стаж: не менее 3-х лет даны три числа, определить сколько чётных является ли 4-х значное число палендромом

var

  age : integer;

begin

  read (age);

  if (age > 50) or (age < 17) then writeln ('No') else writeln ('Yes');

end.

var

  a, b, c, count : integer;

begin

  read (a, b, c);

  count := 3 - a mod 2 - b mod 2 - c mod 2;

  writeln (count);

end.

var

  k : integer;

begin

  read (k);

  if (k mod 1000 div 100 = k mod 100 div 10) and (k div 1000 = k mod 10) then writeln ('Yes')      else writeln ('No');

end.