var i,a,b,c,w:integer;
n,p:string;
begin
writeln('Vvedite chislo ot 0 do 999: ');
readln(n);
begin
for i:=1 to 999 do
  a:=i div 100;
  b:=i div 10 mod 10;
  c:=i mod 10;
  w:=a+b+c;
  p:=IntToStr(w);
  if p=n then writeln(p,' ');
end;
end.

uses crt;
var n,i,a,b,c,w,k:integer;
    s:string;
begin
write('Сумма цифр n=');
readln(n);
writeln('Номера с суммой цифр, равной ',n);
k:=0;
for i:=1 to 999 do
 begin
  a:=i div 100;
  b:=i div 10 mod 10;
  c:=i mod 10;
  w:=a+b+c;
  if w=n then
   begin
    k:=1;
    str(i,s);//чтобы на всех Паскалях шло
    //s:=IntToStr(i); //для АВС
    if i<10 then s:='00'+s
    else if i in [10..99] then s:='0'+s;
    write(s:4);
   end;
 end;
if k=0 then write('Таких номеров нет')
end.

var
   i, a, b, c, w: integer;
   n: integer;
begin
   writeln('Vvedite chislo ot 0 do 27: ');
   readln(n);
   
   for i:=1 to 999 do
   begin
      a:=i div 100;
      b:=i div 10 mod 10;
      c:=i mod 10;
      w:=a+b+c;
      if n=w then writeln(i,' ');
   end;
end.

      if n=w then
      begin
         if a = 0 then write(0); // Первая цифра - 0? Выводим этот 0...
         if (a + b = 0) then write(0); // Первая И ВТОРАЯ - нули: добавляем еще один 0
         writeln(i,' '); // А потом уже выводим само число...
      end;

var
   k, n, i, a, b, c, w: integer;
   s: string;
begin
   writeln('Vvedite chislo ot 0 do 27: ');
   readln(n);
   
   for i:=1 to 999 do
   begin
      a:=i div 100;
      b:=i div 10 mod 10;
      c:=i mod 10;
      w:=a+b+c;
      if n=w then
      begin
      k:=1;
      str(i,s);
      if i<10 then s:='00'+s
      else if i in [10..99] then s:='0'+s;
      writeln(s:4,' ');
   end;
   end;
   if k=0 then write ('Takih nomerov net');
end.

Цитата(IUnknown @ 8.09.2011 12:45)

      if n=w then
      begin
         if a = 0 then write(0); // Первая цифра - 0? Выводим этот 0...
         if (a + b = 0) then write(0); // Первая И ВТОРАЯ - нули: добавляем еще один 0
         writeln(i,' '); // А потом уже выводим само число...
      end;

      WriteLn(a,b,c);

const
  n1= 1;
  n2= 999;
...
  for i:=n1 to n2 do ...

WriteLn('Чисел с суммой цифр ',n,' в диапазоне от ',n1,' до ',n2,' не найдено');

const
n1=1;
n2=999;
var
   n, i, a, b, c: integer;
   s: string;
   k: boolean;
begin
   writeln('Vvedite chislo ot 0 do 27: ');
   readln(n);
   
   for i:=n1 to n2 do
   begin
      a:=i div 100;
      b:=i div 10 mod 10;
      c:=i mod 10;
      if n=a+b+c then
      begin
      k:=true;
      str(i,s);
      if i<10 then s:='00'+s
      else if i in [10..99] then s:='0'+s;
      writeln(s:4,' ');
   end;
   end;
   if k=false then write ('Chisel s summoj zifr ',n,' v diapazone ot ',n1,' do ',n2,' net');
end.

Цитата(liverpool85 @ 9.09.2011 22:27)

const
   n1=1;   { сдвигай! }
   n2=999;
var
   n, i, a, b, c: integer;
   { s не нужна, убери
   s: string; }
   k: boolean;
begin
   { я бы убрал диапазон..  ну, выдаст, что нет таких - что такого?  это тоже результат }
   { вставил "целое" }
   writeln('Vvedite celoe chislo ot 0 do 27: ');
   readln(n);
   k:= false;  { обязательно инициализируй! не полагайся на компилятор }
   for i:=n1 to n2 do begin
      a:= i div 100;
      b:= i div 10 mod 10;
      c:= i mod 10;
      if n=a+b+c then begin   { привыкай ставить begin в конце строки, если преп не против )) }
         k:=true;    { после begin - сдвигать, однозначно}
         WriteLn(a,b,c)  { не нужно никаких ухищрений, у тебя же уже есть цифры (см. мой коммент на пост IUnknown) }
      end;  { end стоит точно в той позиции, где начинается строка с begin }
   end;
   { не k=false, а not k } 
   if not k then write ('Chisel s summoj zifr ',n,' v diapazone ot ',n1,' do ',n2,' net');
end.

var
   n : 0 .. 27; // или 1 .. 27

var
   n : 0 .. 27;
   Ok : boolean;
begin
   writeln('Введите число от 0 до 27:');
   repeat
      Ok := true;
      try
         readln(n);
      except
         writeln('Нет, число должно быть 0 .. 27');
         Ok := false;
      end;
   until Ok;

   // Всё, число введено, едем дальше...
   writeln('n = ', n);
end.

var n : integer;
begin
   repeat
      {$I-} Readln(n); {$I+}
   until (IOResult = 0) and (n > 0) and (n <= 27);
end.

const
n1=1;
n2=999;
var
   n: 0 .. 27;
   i, a, b, c: integer;
begin
   writeln('Vvedite chislo ot 0 do 27: ');
   repeat
   readln(n);
   until (n>0) and (n<=27);
   for i:=n1 to n2 do begin
      a:=i div 100;
      b:=i div 10 mod 10;
      c:=i mod 10;
      if n=a+b+c then begin
   writeln(a,b,c);
   end;
   end;
   end.