помогите, пожалуйста, написать программу на языке Паскаль

Доброго времени суток.

Объявляем массив.

var a : array['A'..'Z'] of Word;

Обнуляем его

for Ch:='A' to 'Z' do a[Ch] := 0;

Пусть текст введен в переменную S. Причем абсолютно не важно есть в конце точка или нет (однако, приведенный код не предполагает наличия точки) . Начинаем в цикле просматривать символы строки и увеличивать соответствующий символу элемент массива.

for i:=1 to Length(S) do a[S[ i ]] := a[S[ i ]] + 1; {или просто Inc(a[S[ i ]]);}

А теперь начинаем выводить результат.

for Ch:='A' to 'Z' do if a[Ch] > 1 then WriteLn(Ch);

Вот и все. Как видите, задача буквально в пару, тройку строчек. Остальное сами.

Удачи!

ну, если чисто на паскале, то вот:

Uses Crt;
var
s,res: String;
i,k: Integer;
pr: Boolean;
begin
pr:=false;
Write('Введите текст >> ');
ReadLn(s);
for i:=1 to Length(s)-1 do
begin
for k:=1 to Length(s) do
begin
if s=s[k] then pr:=true;
end;
if pr=true then
begin
res:=res+s;
pr:=false;
end;
end;
WriteLn('Найденные совпадения: '+res);
ReadLn;
end.

выложи свои попытки, я хоть гляну и поржу.. . или ты ничего не делала, что не удивительно, ну ищи тогда альтруистов.. . листинг будет укажу на твои ошибки от непонимания, листинга нет -- сделаю за бабло (за такую задачку рублей сто)

Выложы текст))