По программированию на паскаль, нужна . дана строка состоящая из строчных букв алфавита. необходимо определить какие буквы встречаются в этой строке больше одного раза. формат входных файлов: входной файл содержит одну строку s длиной не более чем 100 символов, состоящую из букв a, b, выходной файл должен содержать в алфавитном порядке последовательность букв строки s, которые встречаются в ней больше одного раза. каждая буква выводится не больше одного раза.

Var t1,t2:text;
s:string;
k:array['a'..'z']of integer;
i:integer; c:char;
begin
assign(t1,'input.txt');
reset(t1);
assign(t2,'output.txt');
rewrite(t2);
readln(t1,s);
for c:='a' to 'z' do k[c]:=0;
for i:=1 to length(s) do k[s[i]]:=k[s[i]]+1;
for c:='a' to 'z' do
 if k[c]>1 then write(t2,c);
writeln(t2);
close(t1); close(t2);
end.

Пример:
Файл input.txt:
xyzabcdefgabcdx

Файл output.txt
abcdx

// PascalABC.NET 3.3, сборка 1579 от 18.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadAllText('input.txt');
  WriteAllText('output.txt',s.GroupBy(c->c).Select(t->(t.Key,t.Count))
      .Where(t->t[1]>1).Select(t->t[0]).OrderBy(t->t).JoinIntoString(''))
end.

Пример
Во входном файле input.txt записана строка

В выходном файле output.txt будет получена строка
befiknopqrsuvwy

Написали бы язык программирования. Вот на java.
import java.io.BufferedReader;
import java.io.IOException;
import java.io.InputStreamReader;


public class znanie {
public static void main(String[] args) throws IOException {
BufferedReader reader=new BufferedReader(new InputStreamReader(System.in));
long A=Long.parseLong(reader.readLine());
long B=Long.parseLong(reader.readLine());
if((A<0)||(B<0)){
System.exit(0);
}
long sum=0;
for (long i = A; i <= B; i++) {
if((i%5==0)||(i%13==0)){
sum=sum+i;
}
}
System.out.println(sum);
}
}

Import java.util.*;

public class zadacha
{

public static void main(String[]args)

{

cout("Введите номер ед.изм: ");

@SuppressWarnings("resource") Scanner cin = new Scanner (System.in);
double v=cin.nextInt();

cout("Введите массу в указанной ед.изм: ");
double m=cin.nextDouble();

if (v==1) {
  print(m);
 }

else if (v==2) {
  print(m/st(6));
 }

else if (v==3) {
  print(m/st(3));
  }

else if (v==4) {
  print(m*st(3));
 }

else if (v==5) {
  print(m*st(2));
}

}

public static void cout (String text)
{
 System.out.print(text);
}
public static void print(double printer)
{
 System.out.print(printer);
}

public static int st(int t)
{
t=(int) Math.pow(10, t); return t;
}

}