С клавиатуры вводится 10 чисел. Найти произведение тех чисел, которые на интернал [5; В], где В - нижняя граница интервала (вводим с клавиатуры). Дан массив В (7). Заполненный с клавиатуры. Найти минимальное число в массиве, которое при этом кратно 5.

Напишите , на языке Pascal (не ABC.NET)​

Печать документов и ФШ))про Макса вообще молчу имя ему даже другое дали. Школьные задания просто убивают.. По делу.Для работы в средах растровой, векторной и тем более в моделировании понадобится дискретная видео карта с объёмом памяти не менее 512 МБ, а для моделирования понадобится ещё и плюс поддержка шейдеров 3 версии и выше плюс ко всему этому ещё добавляется технология PhysiX, дабы макс не тормозило, хотя и не уверен, что с этими минимумами что-то там вообще будет нормально работать, ну да, дальше. Минимум 2 ГБ оперативной памяти, желательно DDR3. Процессор желательно не ниже характеристик intel core 2 duo или аналог на AMD, а то пентиумы уже не тащат. 180 ГБ HDD. Ну чем больше, тем лучше. Ну ещес: DVD,CD - дисководы Принтер, очень важный элемент, без нэго ничего не работает. Думаю все это укладывается в 25 тысяч.

Var so,sr,c:string;
t,k:integer;
begin;
readln(so);
t:=0;
for i:=1 to length(so) do
sr:=sr+'*';
while t<>6 do
begin;
readln(c);
if length(c)<>1 then
 begin;
  writeln('Только одна буква!');
  continue;
 end;
if pos(c,so)<>0 then
 begin;
 for i:=1 to length(so) do
   if so[i]=c then
   begin;
     delete(sr,i,1);
     insert(c,sr,i);
   end;
 writeln(sr);
 writeln('Осталось ',6-t,' попыток');
 end
 else
 begin;
 writeln(sr);
 inc(t);
 writeln('Осталось ',6-t,' попыток');
 end;
 if so=sr then break;
end;
if so=sr then writeln('Вы выиграли') else writeln('Вы проиграли');
end.