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

begin

writeln ('Enter A');

readln (A);

for i:integer:=1000 to 9999 do

if (i mod 3 = 1) / /если остаток от деления на 3 равен 1

and (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 / / числа единиц равна A

writeln (i,' '); //то напечатать число i

end.