Pascal abc.net. уже 2 дня бьюсь над и никак не выходит.условие : "по заданному числу "a" определите является ли оно целым.если заданное число является целым, то в выходной файл output.txt выведите сумму цифр этого числа, в противном случае выведите корень квадратный из модуля этого числа." у меня есть начало. только самое-самое начало.я не понимаю, как можно сосчитать сумму цифр числа, если неизвестно, сколько в нём цифр. вот начало программы: var a: real; begin readln(a); a: =abs(a); if a-trunc(a)=0 then //тут у меня проблема else a: =sqrt(a); writeln(a) end.