Числа у которых сумма всех цифр совпадает с суммой цифр данного числа.

var
n,i,sum:Integer;
procedure Soum (var sum;n:Integer);
var
i,count:Integer;
begin
count:=0;
for i:=1 to n-1 do
count:=count+i;
Sum:=count;
end;
 
Function SoumOfNumber(n:Integer):Integer;
var
count:Integer;
Begin
count:=0;
while n<>0 do
Begin
count:=count+n mod 10;
n:=n div 10;
End;
SoumOfNumber:=count;
End;
 
Begin
readln(n);
soum(sum,n);
For i:=1 to n do
if sum=SoumOfNumber(i) then
writeln(i);
End.

uses crt;
function Summ(k:longint):byte;//подсчет суммы цифр числа
var m:longint;
    s:byte;
begin
m:=k;
s:=0;
while m>0 do
 begin
  s:=s+m mod 10;
  m:=m div 10;
 end;
Summ:=s;
end;
var n,i:longint;
begin
clrscr;
write('n=');readln(n);
writeln('Числа, сумма цифр которых=',Summ(n));
for i:=1 to n-1 do
if Summ(i)=Summ(n) then write(i,' ');
readln
end.

procedure Summ(k:longint;var s:byte);//подсчет суммы цифр числа
var m:longint;
begin
m:=k;
s:=0;
while m>0 do
 begin
  s:=s+m mod 10;
  m:=m div 10;
 end;
end;
var n,i:longint;
    sn,si:byte; 
begin
clrscr;
write('n=');readln(n);
Summ(n,sn);
writeln('Числа, сумма цифр которых=',Summ(n));
for i:=1 to n-1 do
 begin
  Summ(i,si);
  if si=sn then write(i,' ');
readln
end.

procedure Summ(k:longint;var s:byte);
.................
Summ(n,sn);
.......................
Summ(i,si);

writeln('Числа, сумма цифр которых=',sn);