Ребяточки, решите эту прекрасную ерунду

7680*90=691200

691200/16=43200

43200/400=108 страниц

  writeln(x) вот этой! потому что если взять  в ковычки выведет х

if x< 10 then x: =10

else

  if x< 15 then x: = 16

  else x: = 20

для обоих вариантов х=10, потому что дальше первой строчки оно не пойдет

var i,s : longint; begin  s: =0;   for i: =100 to 999 do s: =s+i;   writeln(s); end.