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

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= 319
638

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.

Объяснение:

1.Ве́кторная гра́фика представления графических объектов и изображений (формат описания) в компьютерной графике, основанный на математическом описании элементарных геометрических объектов, обычно называемых примитивами, таких как: точки, линии, сплайны, кривые Безье, круги, окружности, эллипсы, многоугольники.

2.Inkscape (Инкскейп) — свободно распространяемый векторный графический редактор, удобен для создания как художественных, так и технических иллюстраций (вплоть до использования в качестве САПР общего назначения, чему также лёгкость обмена чертежами).

3.

Заменим буквы А, О, У на 0, 1, 2(для них порядок очевиден – по возрастанию)

Выпишем начало списка, заменив буквы на цифры:

1. 00000

2. 00001

3. 00002

4. 00010

Полученная запись есть числа, записанные в троичной системе счисления в порядке возрастания. Тогда на 61 месте будет стоять число 60 (т. к. первое число 0). Переведём число 60 в

троичную систему (деля и снося остаток справа налево):

60/ 3 = 20 (0)

20 / 3 = 6 (2)

6 / 3 = 2 (0)

2 / 3 = 0(2)

02020

В троичной системе 60 запишется как 02020. Произведём обратную замену и получим АУАУА

Объяснение: