Даны 3 числа.Вывести сумму чётных из них,которые являются двухзначными числами.(в паскале)помогите срочно надо

задача такая

даны 3 числа найти кол-во 2-х из них

var a,b,c,k:integer;begin write('ââåäèòå 3 ÷èñëà'); readln(a,b,c); k:=0; if (a>=10) fnd (a<=99) then k:=k+1; if (b>=10) fnd (b<=99) then k:=k+1; if (c>=10) fnd (c<=99) then k:=k+1; writeln('k=',k) readln;end.

там где fnd там будет and