НАЙДИТЕ 4 РЕШЕНИЯ РЕБУСА: ЛЕТО+ЛЕС=2017 ПОМОГИТЕ СРОЧНО

1828 и 1891829 и 1881830 и 1871831 и 1861832 и 1851833 и 1841834 и 1831835 и 1821836 и 1811837 и 180Для решения задачи написала программу на языке программирования PascalABC -  для справкиprogram shislo;var l,e,t,o,c:integer;beginfor l:=1 to 9 dofor e:=0 to 9 dofor t:=0 to 9 dofor o:=0 to 9 dofor 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) endend.