Пусть данные находятся в d:\f1.txt
var
k,min,eqv,max,n:integer;
s:string;
f:text;
begin
write('Введите k: ');
readln(k);
assign(f,'d:\f1.txt');
reset(f);
while not eof(f) do
begin
readln(f,s);
n:=length(s);
if n<k then min:=min+1;
if n=k then eqv:=eqv+1;
if n>k then max:=max+1;
end;
writeln('Меньше k: ',min);
writeln('Равно k: ',eqv);
writeln('Больше k: ',max);
end.
Var n, i, k:integer;
begin;
readln(n);
for i:=100 to 999 do
if (i mod 10) + (i div 100) + (i div 10 mod 10) = n then begin;
writeln(i);
k:=k+1;
end;
writeln(k);
end.