Question

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

Answer 1

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.