PascalABC.
1) program ee;
var a,b:integer;
begin
writeln('Введите рабочий стаж сотрудника');
readln(a);
writeln('Введите возраст сотрудника');
readln(b);
if (a >= 3) and (b > 20) then begin
writeln('Сотрудник подходит');
end
else begin
writeln('Сотрудник не подходит');
end;
end.
2) Не очень понял,что именно надо
3) Билет считается счастливым , если первые сумма первых 3 чисел равна сумме последних 3 чисел.
program ee;
var a,b,c,d,i,f,n:integer;
begin
writeln('Введите номер 6-ти значного билета');
readln(n);
a:=n mod 10;
b:=n div 10 mod 10;
c:=n div 100 mod 10;
d:=n div 1000 mod 10;
i:=n div 10000 mod 10;
f:=n div 100000;
if ((a+b+c) = (d+i+f)) then begin
writeln('Билет является счастливым');
end
else begin
writeln('Билет не является счастливым');
end;
end.