На интервале от 100 до 150 найти количество цифр, сумма которых равна 5.

program raf105;

var a,b,c,counter,i: integer;

begin

for i:=100 to 150 do

begin

 a:= i div 100;

 b:= (i div 10) mod 10;

 c:= i mod 10;

 if a+b+c=5

   then counter:= counter + 1;

end;

writeln('Количество чисел от 100 до 150, сумма цифр которых равна пяти: ',counter);

end.