Задача Паскаль АБС, Напишите программу, выводящую все трехзначные номера (от 001 до 999), Опции

[liverpool85]

Здравствуйте! Напишите программу, выводящую все трехзначные номера (от 001 до
999), сумма цифр которых равна N (значение N вводит пользователь).

Мой код-

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.

Почему то не выводит все номера)))

[sheka]

привыкай ставить begin в конце строки

А это еще почему?

[Lapp]

А это еще почему?

лучше 1 раз попробовать, чем 10 раз спросить ))


Добавлено через 7 мин.
liverpool85, со сдвигами у тебя еще бардак..

const
n1=1;
n2=999;
...
      if n=a+b+c then begin
   writeln(a,b,c);
   end;
   end;
   end.

Даже если вносишь заведомо врЕменное изменение в прогу - все равно не ленись форматировать. Лучше сдвинуть нескобко раз туда-сюда, чем оставить неправильно и запутаться в двух строчках.
И уж тем более, если показываешь свой код другим..