Помогите с паскалем

[Frodos]

Мне нужно написать программу. Нужно разбить 34 на цифры 3 и 4,затем вычислить ср.геометрическое этих цифр,помогите пожалуйста!!!

[Вадим Мошев]

read(number);

decs:=number div 10;
units:=number mod 10;

result:=sqrt(decs * units);

[NetSpace]

и проверку на отрицательность не забудьте.
если преподу вздумается во время тестирования ввести нечётное количество отрицаельных чисел (одно, три, пять и т.д.), то под корнем чётной степени окажется отрицательное значение - будет выдавать ошибку.
вот этот набор будет нормально работать: 1,2,3,4,5.....32, 33,34
а вот это не будет: 1,2,3,5, -6, 7,8......32,33,34