if n mod (10^k)<>0, then writeln( 'заканчивается') else writeln( 'не заканчивается') где к -вид числа ( двузначное трехзначное четырехзначное и т.п.), а n само число
