PASCAL ABC.
1. Дано вещественное. Наити среднее арифметическое чисел, целой и дробной части.
2. Вычислить значение аргумента если x>0, x:=sqr(x), в противном случае x:=(12+x) /5.