Сколько цыклов должно быть, что ы нарисовать квадрат в программе скреч?

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём;

ПЕР
  n, k, сч, мин, кол: ЦЕЛ;

ЗАДАЧА Сумма_цифр(число: ЦЕЛ): ЦЕЛ;
ПЕР
  сумма: ЦЕЛ;
УКАЗ
  сумма := 0;
  ПОКА число > 0 ВЫП
    УВЕЛИЧИТЬ(сумма, число ОСТАТОК 10);
    число := число ДЕЛИТЬ 10
  КОН;
  ВОЗВРАТ сумма
КОН Сумма_цифр;

УКАЗ
  Вывод.Цепь("n: ");
  n := Приём.Число();
  Вывод.Цепь("^k: ");
  k := Приём.Число();
  мин := 1;
  ОТ сч := 1 ДО n - 1 ВЫП
    мин := мин * 10
  КОН;
  кол := 0;
  ОТ сч := мин ДО мин * 10 - 1 ВЫП
    ЕСЛИ Сумма_цифр(сч) = k ТО
      УВЕЛИЧИТЬ(кол)
    КОН
  КОН;
  Вывод.ЧЦел("^%d", кол, 0, 0, 0)

КОН Задание.

#include <iostream>
using namespace std;
int main()
{ 
   for(int i = 10; i < 100; i++) 
  {     
          if(i/10 == 2*(i%10))   
              cout << i << " ";
   }   
           return 0;
}
Пример на С++ 
Но если надо на другом языке, то суть такова:
1)запускаешь цикл от 10 до 99(все двузначные числа) со счетчиком i например
2)внутри условие если i деленный нацело на 10(1 цифра этого числа )равен  удвоенному значению остатка от деления i на 10 ( последняя цифра числа в 2 раза больше 1 должна быть)
то на экран выводится это число i