Нужно подробное написание программы в pascalABC
1) С клавиатуры вводится  число в интервале от 1 до 999. Написать программу, которая определяет количество цифр во введенном числе.
2) Написать программу, которая определяет, какая из двух точек расположена ближе к началу координат. Координаты вводятся с экрана.

program name;var i,n,x,summa,count:integer;nechet:boolean;beginWriteln('Vvedite n: ');readln(n);//получаем nsumma:=0;count:=0;i:=1;if(n mod 2 = 1) then nechet := true else nechet := false; //проверяем четное число или нетwhile i<n do begin//пока число меньше nif(nechet) then//если число нечентноеbeginsumma:=summa+i*i*i;//прибавляем к сумме куб этого числаendelse//если число четноеbeginsumma:=summa+i*i;//прибавляем квадрат числаend;i:=i+1;//прибавляем число на 1end;writeln(' summa: ', summa);//выводим суммуreadln();end.