[lmikle]

Будет работать до 10.
Доработка - брать mod от числа по 10 для выяснения последней цифры:

Код:

var
  K1 : Integer;
begin
  ...
  K1 := K mod 10;
  ...
  if (K1=2) or (K1=3) or (K1=4) then 
  ...