PASCAL ABC Составить программу, которая определяет подходит кандидат на работу или нет. Возраст:не больше 50, не меньше 17 Стаж:не менее 3-х лет Задача2Даны три числа, определить сколько чётныхЗадача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.