Программу которая для 3х значного числа если оно четное то возводит в квадрат ,а если не четное то находит сумму цифр

Var
A: integer;

begin
readLn(A);
if (A mod 2 = 0) then
begin
A := sqr(A);
WriteLn('Квадрат введённого числа равен: ', A);
end else
begin
A := ((A mod 100) div 10) + (A mod 10) + (A div 100);
writeLn('Сумма цифр введённого числа равна: ', A);
end;
end.