Информатикавсе названное является свойствами диапазона ячеек, кроме: именишириныколичества клетокадреса​

PascalABC.NET 3.5.1

begin

 var a := ReadString().ToCharArray.ToList; //Читаем с консоли число как строку, разбиваем на массив символов и приводим к типу List<T> для удобства работы

 var fnum := a[0];  //Запишем в переменную fnum первый элемент получившегося списка цифр нашего числа (то бишь первую слева цифру)

 a.Remove(fnum);  //Удалим из этого списка эту цифру

 a.AddRange(Seq(fnum, fnum));  //Добавим в конец нашего списка цифр эту самую последнюю цифру два раза

 a.JoinIntoString.Println; //Соберём элементы нашего списка в строку и выведем на печать

end.

Объяснение:

var N, i, a, m:integer;

c:boolean;

begin

 writeln('Введите количество участников');

 readln(N);

 if ((N < 1) or (N >50))then begin

   writeln('Ошибка');

   exit;

 end;

 m := 0;

 c := false;

 for i:=1 to N do begin

   writeln('На сколько во правильно ответил ',i,' участник:');

   readln(a);

   if ((a < 0) or (a > 20)) then begin

     writeln('Ошибка');

     exit;

   end;

   

   if (a = 0) then

     c := true;

   

   if (a > m) then

     m:= a;

 end;

 writeln('Количество во на которые ответил победитель правильно: ', m);

 if (c = false) then

   writeln('Есть ли участники, которые не ответили ни на один во правильно: NO')

 else write('Есть ли участники, которые не ответили ни на один во правильно: YES');

 

end.