program lab3;
const m=100; n=300;
var v, x, k, d, s: integer;
begin
writeln ('Vvedite N=');
readln (v);
s:=0;
For x:=200 to 400 do
 begin
 k:=0;
 For d:=1 to x do
 if x mod d = 0 then k:=k+1;
 if k=v then s:=s+x;
 end;
writeln('Сумма чисел в пределах от m до n, у которых количество делителей равно ', v, ', =',s);
end.