Помогите написать правильно программу, по условию

помогите написать правильно программу, по условию
Дано натуральное число N. Среди чисел 1, ..N найти все такие, запись которых совпадает с последними цифрами их квадрата (как, например, 62=36, 252=625 и т.д. ).

  • Помогаю по русскому языку: "помогите" не значит "сделайте за меня". Или показывай свои наработки и описывай проблему, или предлагай деньги.
  • Перебираете все числа и проверяете. Вот это что такое "62=36"? Где они совпадают?
    Поиск цифр числа: последовательно находите остаток от деления числа на 10, при этом само число деля на 10 нацело. Для вашей задачи можно завести два массива 0..9 и находиться одновременно цифры в числе и в квадрате. Потом проверить равенсто элементов массива.
    Ваш код выкладываете на pastebin.com. Тогда поможем.
    Если не можете написать сами - обратитесь на почту.
  • А еще "делавар" пишется немного по-другому, если ты имел ввиду штат или племя.

    Могу подарить проверку условия.
    Опишем функцию:

    function Nearest10(n:integer):integer;
    var j,k:integer;
    begin
    k:=10;
    for j:=1 to trunc(ln(n)/ln(10)) do k:=k*10;
    end;

    Тогда наше условие
    Match:=sqr(n) mod Nearest10(n) = n;