PascalABC.
Определить, чему равна максимальная первая цифра n введенных с клавиатуры чисел.
Использовать функцию.

Ну как все делают?

понятно, Большое спасибо за умный и нужный ответ

Большое пожалуйста! А Вы думали, я угадаю, что Вы делаете не так, приводящее к некорректной вставке?

Пробуйте разные варианты.

Попробуйте удвоить все переводы строк перед вставкой сюда. Магическим образом это может помочь, один перевод строки пропадет, а второй останется.

const nx=20;var i,n,k,z,v,err,max:integer; t,s:string;a:array[1..nx] of integer;beginWrite('Введите число n');Read(n);Write('Введите числа');for i:=1 to n doRead(a[i]);foreach k in a do beginstr(k,s);t:= copy(s,1,1);val(t,v,err);if max < v then max:=v;end;writeln('max =',max);end.