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.

Если число отрицательное целое , то первая цифра - отрицательная . Если вам такое не подходит напишите там где x x:=abs( trunc(a) )

А где же вывод в файл?

vara:real;x,res:integer;beginreadln(a);if a = trunc(a) thenbeginx:=trunc(a);while x<>0 dobeginres:=res + x mod 10;x:= x div 10;end;writeln(res);endelse writeln(sqrt( abs(a) ));end.