сбор информации(люди сами закачивают туда файлы) и её хранение(хранит её долгое время)
Простое решение. Сначала просто заполняем массив в ручную, потом ищем минимальное значение и максимальное.
Дуглас Энгельбарт известный как создатель <span>первой компьютерной мыши.</span>
var
i1,i2,i3,i4,i5,i6:Longint;
begin
For i1:=0 to 9 do
For i2:=0 to 9 do
For i3:=0 to 9 do
For i4:=0 to 9 do
For i5:=0 to 9 do
For i6:=0 to 9 do
if i1+i2+i3=i4+i5+i6 then Writeln('счастливый билет':i1,i2,i3,i4,i5,i6);
Writeln('все миллионеры :D')
end.