1. дано число к. напечатать все трехзначные числа, сумма цифр которых равна данному числу. program ex1; var k,i, p1,p2,p3: integer; begin writeln('vvedite k'); readln(k); for i: = 100 to 999 do begin p1: =i div 100; p2: = (i div 10) mod 10; p3: =i mod 10; if(p1+p2+p3)= k then writeln(i); readln; end; end. почему программа не идет? где ошибка?