Есть программа на с# необходимо сделать тоже самое на паскале!
суть программы: (подсчитать количество цифр в числе не превосходящих заданной цифры, введённой с клавиатуры)

листинг:

using system;

namespace application

{

class mainclass

{

public static void main (string[] args)

{

int number;

console.write ("number: ");

number = int.parse (console.;

int digit;

console.write ("digit: ");

digit = int.parse (console.;

int result = 0;

for (; number! =0; result += number % 10 > digit ? 0 : 1, number/=10);

console.writeline ("result: " + result);

}

}

}