НАЙДИТЕ 4 РЕШЕНИЯ РЕБУСА: ЛЕТО+ЛЕС=2017 ПОМОГИТЕ Безотлагательно

1828 и 189
1829 и 188
1830 и 187
1831 и 186
1832 и 185
1833 и 184
1834 и 183
1835 и 182
1836 и 181
1837 и 180
Для решения задачки написала программку на языке программирования PascalABC -  для справки
program shislo;
var l,e,t,o,c:integer;
begin
for l:=1 to 9 do
for e:=0 to 9 do
for t:=0 to 9 do
for o:=0 to 9 do
for c:=0 to 9 do
 beginif 1000*l+100*e+10*t+o+100*l+10*e+c=2017
 then writeln(1000*l+100*e+10*t+o,'    ', 100*l+10*e+c)
 end
end.