Наверно библиотека, 10 букв.
0. так как сумма положительных чисел не может быть меньше 10 по условию
Ответ единица. :)
Пояснения или решение нужны?
Var
c: integer;
begin
readln(c);
writeln(sqr(c mod 10));
end.
Скорее всего формула должна быть такая:
=ЕСЛИ(A1<=0;A1^2-4;ЕСЛИ(A1<5;COS(A1)+5;КОРЕНЬ(ABS(A1)+A1^2)))