9 БАЛЛОВ!!!! СРОЧНО!!!! Помогите по информатике Паскаль 8 класс!!

Если сумма цифр трёхзначного числа чётная, то разделить на 2, если нет умножить на 2

var  x, s: integer;  k: real ;begin  readln(x);  if (x > 99) and (x < 1000) then    while x > 0 do    begin      s := s + x mod 10;      x := x div 10;    end;  k := s / 2;  if s mod 2 = 0 then    writeln(k)  else     writeln(s * 2);end.

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018Внимание! Если программа не работает, обновите версию!begin  var n:=ReadInteger('n=');  if (n div 100+(n div 10) mod 10+n mod 10).IsEven then Writeln(n/2)  else Writeln(2*n)end.Примерn= 319638