риски про работе в интернете .Аня открыла файл который ей пришел по почте с незнакомого номера .Маша договорилась о встречи с незнакомым человеком.Вова отправил незнакомцу фото своего друга.Ира отправила СМС чтобы скачать файлы.Паша перешел по рекламной ссылке , скачал и установил игру .СОЕДИНИТЕ С 1.нежеланное общение 2.потеря денег 3.заражение компьютера4.утечка личных данных​

1) Маша договорилось о встречи с незнакомым человеком

2) Паша перешел по рекламной ссылке , скачал и установил игру

3) Аня открыла файл который ей пришел по почте с незнакомого номера

4) Вова отправил незнакомцу фото своего друга

Дважды подряд записать трехзначное число — это значит умножить его на 1001. Умножив на 1000, мы получаем исходное число с тремя нулями. Добавляем к полученному числу еще один раз исходное число. Получается число, в записи которого дважды повторяются цифры исходного числа.
Последовательно разделить на 13, 11 и 7 – значит разделить число на произведение 13 * 11* 7, которое равно 1001.
Получается, что мы число сначала умножаем на 1001, а после делим на 1001. Естетственно, у нас получится исходное число:
(n * 1001) / (13 * 11 * 7) = (n * 1001) / 1001 = n.

var a,i,n,min,max: integer;

begin

write('Введите кол-во чисел в последовательности: ');

readln(n);

min:=1;

max:=2;

for i:=1 to n do

 begin

 write('Введите ',i,' число: ');

 readln(a);

 if (a mod 2 = 0) then  

   begin

   if (min=1) then min:=a

   else if (a<min) then min:=a;

   end

 else

   begin

   if (max=2) then max:=a

   else if (a>max) then max:=a;

   end

 end;  

if (min<>1) then writeln('Минимальное четное: ',min);

if (max<>2) then writeln('Максимальное нечетное: ',max);

end.