Составить программу на паскале

ответ:

сорян паскаль не знаю , могу скинуть на с++

разбираешься в инфе , поймёшь

#include

using namespace std ;

int main {

\\ не важно что выше

int num , k , o , s , l; \\ объявляем числа  

l, o , s , k ,num = 0 ;   \\ чтобы в компиле гадости не было

cin > > num > > k ; \\ вводим их c клавы

while (num > = 1) {

  s = num ;

  o = s%10 ;

      if (o < = k){ // цикл на проверку условию

      l += 1 ;

      }

  num = num % 10 ;

}

cout < < l ; // выводим ответ

\\ не важно что ниже

return 0 ;

}

program n1; // программа на паскале n1

var i,n,sum: integer; // объявление целых переменных i,n и sum

begin //начало программы

readln(n); //ввод n

sum: =0; / /присвоение переменной sum нач. значения 0

for i: =1 to n do sum: =sum+2*i; // цикл для вычисления суммы

writeln(sum); // печать суммы

end. //конец программы