===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
var a :=ReadArrInteger(n); // бессмысленное занятие
a := ArrRandom(n, 1, 50);
a.Println
end.
Вместе: 194240229236255
Каждая буква отдельно: 194 240 229 236 255
Пример в Excel 2003
-----------------------------------
Var
a, n: integer;
begin
n := 0;
read(a);
while a > 0 do
begin
a := a div 10;
n := n + 1;
end;
if(n mod 2 = 0) and (n <> 0) then write('Верно')
else write('Неверно');
end.