Даны натуральные числа m и n. Получить все натуральные числа, меньшие n, квадрат суммы цифр которых равен m.

begin s1:=copy (s, 1, pos (' ', s) - 1) ; {копируем первое слово до пробела} for i:=pos (' ', s) + 1 to length (s) do{смотрим строку дальше} if (copy (s, i, length (s1)) = s1) {если набор символов совпадает с этим словом} and (s[i-1]=' ') {и перед ним пробел} and ((s[i+length (s1) ]=' ') {и за ним пробел} or (i+length (s1) - 1=length (s))) then{или это последнее слово} begin k:=1; {фиксируем совпадение} s2:=s1; {запоминаем слово} write ('Одинаковые слова ', s2) ; {выводим на экран} readln; exit; {выходим из программы, нужно только 1 пару} end; delete (s, 1, pos (' ', s)) ; {удаляем первое слово, следующее первое} end; if k=0 then write ('Нет двух одинаковых слов') ; readln end.