Помогите пожалуйста,(Паскаль АВС): Среди натуральных трехзначных чисел найти те, сумма цифр которых равна заданному числу А, а само число при делении на 4 дает остаток 3.
Var a,b,i,s1,s2,s3:integer; begin; readln(a); for i:=100 to 999 do begin; b:=i; s1:=b mod 10; b:=b div 10; s2:=b mod 10; b:=b div 10; s3:=b mod 10; b:=b div 10; if (i mod 4=3) and (s1+s2+s3=a) then writeln(i); end; end.