Напишите число X, для которого истинно высказывание:

(X < 8) И НЕ (X < 7)​

Число, которое меньше восьми и больше семи. Например, 7.5

var

  n: integer;

begin

  readln(n);

  writeln(abs(n)-2);

end.

var

  n,i,z: integer;

begin

  readln(n);

for i: =1 to n do if n mod i=0 then inc(z,i);

writeln(z);

end.