Задачи нужно решить на языке Паскаль. Изучаем string.
1.Дана строка. Написать программу, выводящую сумму порядковых номеров заданного символа.
2.Дано предложение состоящее из английских заглавных букв. В предложении только одно слово в котором 3 буквы. Вам нужно написать программу которая найдет это слово и выведет его в файл.

//PascalABC.NET 3.2 сборка 1318Var  s:string;  c:char;  sum,i:integer;beginreadln(s);readln(c);for i:=1 to length(s) doif s[i]=c then sum+=i;writeln(sum);end.Пример ввода:konichivaiПример вывода:11//2Var  f:text;  s:string;  i:integer;beginreadln(s);var ars:=s.Split;i:=0;while ars[i].Length<>3 doinc(i);assign(f,'output.txt');rewrite(f);write(f,ars[i]);close(f);end.  Пример ввода:ARK DRIVE FINISHПример вывода в файл output.txt:ARK