Помогите составить программу.Оч легкая, школьный курс!Пожалуйста!

Delphi pascal:
function reshenie(d :integer);
var s,x,r :string; var i,n :integer;
begin
s := IntToStr(num); {преобразовать число в строку и работать с ней}
for i := 1 to length(s) do
begin
x := s;
for n := 1 to length(s) do
begin
r := s[n];
if (r =x) then begin {вывод результата из r} showmessage('Найдено: ' + r); end;
end;
end;

На каком хоть языке?

Система тестов
_56;_52;_52;_52;_52;_52;_72;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_74;_52;_52;_52;_52;_52;_52;_52;_74;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_59;
_53;Номер^74; Проверяемый _53;Данные _53; Результат _53;
_53;теста^74; случай _53; _53; _53;
_68;_52;_52;_52;_52;_52;_78;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_80;_52;_52;_52;_52;_52;_52;_52;_80;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_71;
_53; ^74; _53; 12 _53; _53;
_53; 1,2 ^74; Число не трехзначное _67;^72;^72;^72;^72;^72;^72;^72;_70; "Число не трехзначное" _53;
_53; ^74; _53; 1234 _53; _53;
_67;^72;^72;^72;^72;^72;_32;^72;^72;^72;^72;^72;^72;^72;^72;^72;^72;^72;^72;^72;^72;^72;^72;^72;^72;^72;^72;^72;^72;^72;^72;_79;^72;^72;^72;^72;^72;^72;^72;_79;^72;^72;^72;^72;^72;^72;^72;^72;^72;^72;^72;^72;^72;^72;^72;^72;^72;^72;^72;^72;^72;^72;^72;^72;^72;_70;
_53; ^74; _53; 112 _53; _53;
_53; ^74; _67;^72;^72;^72;^72;^72;^72;^72;_70; _53;
_53; ^74; _53; 121 _53; _53;
_53; 3-6 ^74; Одинаковые цифры есть _67;^72;^72;^72;^72;^72;^72;^72;_70; "Есть одинаковые цифры" _53;
_53; ^74; _53; 211 _53; _53;
_53; ^74; _67;^72;^72;^72;^72;^72;^72;^72;_70; _53;
_53; ^74; _53; 111 _53; _53;
_67;^72;^72;^72;^72;^72;_32;^72;^72;^72;^72;^72;^72;^72;^72;^72;^72;^72;^72;^72;^72;^72;^72;^72;^72;^72;^72;^72;^72;^72;^72;_79;^72;^72;^72;^72;^72;^72;^72;_79;^72;^72;^72;^72;^72;^72;^72;^72;^72;^72;^72;^72;^72;^72;^72;^72;^72;^72;^72;^72;^72;^72;^72;^72;^72;_70;
_53; 7 ^74; Одинаковых цифр нет _53; 123 _53; "Нет одинаковых цифр" _53;
_62;_52;_52;_52;_52;_52;_75;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_77;_52;_52;_52;_52;_52;_52;_52;_77;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_52;_65;
*/

#include <conio.h>
#include <stdio.h>

main () {

getch();
}

CORE Такое только в Дэлфи.

Var c1, c2, c3 : Char;
Begin
Read(c1, c2, c3);
If (c1=c2) Or (c2 = c3) Or (c3=c1) Then WriteLn('Да')
Else WriteLn('Нет');
End.

Коротко и ясно.