Введено трехзначное число.
Если сумма его цифр нечетна, то увеличить число вдвое.
Помогите пожалуйста

Var n,x,y:integer;
begin
readln(n);
y:=n;
while y>0 do
  begin
  x:=x+n mod 10;
  y:=y div 10;
  end;
if x mod 2=0 then n:=n*2;
writeln(Ответ: ,n);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.