Найти все четырехзначные числа,которые при делении на 3 дают остаток 1,при делении на 4- остаток 2,а сумма их цифр равна

beginwriteln(\'Enter A\');readln(A); for i:integer:=1000 to 9999 do if (i mod 3 = 1) //если остаток от деления на 3 равен 1and (i mod 4 = 2) //и если остаток от деления на 4 равен 2 and // и сумма(i div 1000 //числа тысяч+ (i mod 1000) div 100 //числа сотен + (i mod 100) div 10 //числа десятков+ i mod 10 = A) then // числа единиц равна Awriteln(i,\' \');//то напечатать число iend.