if a mod 2= 0 then - это ты проверяешь на четность
n:=0;
если условие соблюдается n:=n+1- то n:=0+1
var
s: string;
begin
readln(s);
writeln(s[3], s[7], s[9]);
<span>end.</span>
В помещениях:Сталевар,кассир обменного пункта.На открытом воздухе:почтальон,егерь,полевод,чабан,крановщик,водитель.В кабинетах:бухгалтер,учитель,менеджер.В необычных условиях труда:спасатель,водолаз,шахтёр,космонавт,каскадёр.
................................................................................................