[Drongo]

Паскаль плохо знаю, предложу так, знатоки поправят. Лучше напишите что выполняет программа

Код:

#include <iostream>
using namespace std;

int main(void)
{
   int n, t, i, j, s, p;
   cin >> n;
   cin >> t;
   i = 0;
   while(i < n){
      p = i;
      s = 0;
      while((p % 10 != 0) && (p / 10 != 1)){
         s = s + p % 10;
         p = p / 10;
        }
      if((s * s) == t)
         Writeln(i); // Вот это не знаю как перевести
      i++;
     }
   cin>>i; 

   return 0;
}