<em>И снова - приятно, когда кратко))
// PascalABC.NET 3.2, сборка 1483 от 14.06.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var w:=ReadAllText('in.txt'); w.Println;
var s:=w.MatchValues('\b[A-Za-z]+\b').JoinIntoString(' ');
s.Println; WriteAllText('Eng.txt',s);
s:=w.MatchValues('\b[А-Яа-яЁё]+\b').JoinIntoString(' ');
s.Println; WriteAllText('Rus.txt',s);
end.
<u>Пример (читаем in.txt, пишем в Eng.txt и Rus.txt)</u>
The Флегматичная ЭтА QuICk веРБлЮдица broWN ЖУЕТ fox JuMpS у подъезда over The ЗаСыХающИЙ LAZY ГорькиЙ dog шиПоВНиК
The QuICk broWN fox JuMpS over The LAZY dog
Флегматичная ЭтА веРБлЮдица ЖУЕТ у подъезда ЗаСыХающИЙ ГорькиЙ шиПоВНиК
<span>//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)
// А,a
begin
ArrFill(ReadInteger('n='),ReadInteger('x=')).Println;
end.
// А,б
begin
var x:=ReadInteger('x=');
var a:=ArrGen(ReadInteger('n='),i->x+i); a.Println;
end.
// B,a
begin
var (x,n):=ReadInteger2('x,n=');
var a:=ArrGen(n,i->x-(n-1-i)); a.Println;
end.
// B,б
begin
ArrGen(ReadInteger('n='),i->2**(i+1)).Println;
end.
</span>