//PascalABC.NET 3.1 сборка 1239
begin
var s := ReadlnString('s =');
s:=s.Replace('То', '');
writeln(s);
end.
Ответ: 2
A - название массива
: array - определяем что это массив
[1...25] - промежуток индексов всех элементов
of integer - числа целого типа
1 файл - .pas
2 скрин коду
3 скрин результату