2
1 - не соответствует второму правилу
3 - 19 не может быть суммой однозначных чисел
4 - 21 аналогично
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.
Вот ответ. Надеюсь, помогла.