Delphi Вывести МАКСИМАЛЬНЫЙ отрицательный элемент последовательности и его порядковый номер.

[Екатерина Доронин]

1. Вывести МАКСИМАЛЬНЫЙ отрицательный элемент последовательности и его порядковый номер.
2. Ниже представлен фрагмент программы вычисления количества цифр в заданном натуральном числе.
a:=n; ck:=0;
While а>=0; Do
Begin ck:=ck+1;
а:=а div 10;
End;
Найдите и исправьте в нем ошибки.
3. Дано натуральное число n. Приписать по единице в начало и в конец записи числа n. Например, было n=3456, стало n= 134561.

[Serge_Bliznykov]

Сообщение от Екатерина Доронин

рагмент программы вычисления количества цифр в заданном натуральном числе.

a:=n; ck:=0;
While а>0 Do
Begin 
  ck:=ck+1;
  а:=а div 10;
End;

Сообщение от Екатерина Доронин

Дано натуральное число n. Приписать по единице в начало и в конец записи числа n. Например, было n=3456, стало n= 134561

если допустимы функции Delphi, тогда

b := StrToInt( '1'+ IntToStr(n)+'1');