Дано целое число n (> o). найти произведение 1,1*1,2*1,3* множителей ).

Звонит незнакомец, извиняется и говорит, что случайно указал ваш номер телефона в какой-то анкете. Он просит продиктовать ему код, который по ошибке пришел вам в СМС. Это точно мошенник. Немедленно бросайте трубку.

Мошенники могут притворяться, что они ваши знакомые, которые якобы хотят скинуть деньги вам на карту. Но для перевода им нужны номер карты, срок ее действия и CVC/CVV-код. Это тоже обман. Для того, чтобы перечислить деньги, достаточно номера карты. Никакие другие данные — срок действия, имя владельца или код — не требуются.

Var
m:array[0..1000] of longint;
n,i:longint;

procedure tf; 
var
q,j:longint; 
o:array[1..10] of longint; 
begin 
 write(m[1],' '); 
 q:=1; 
 o[q]:=m[1];
  i:=1;
  while q<>3 do 
  begin 
  i:=i+1; 
  
  if q=1 then
   if m[i]<>o[1] then
    begin
    write(m[i],' ');
    q:=q+1;
    o[q]:=m[i];
    end;
  
   if q=2 then
     if (m[i]<>o[1]) and (m[i]<>o[2]) then
       begin
       write(m[i]);
       q:=q+1;
       end; 
  end;
end;

procedure tm;
var
mk:array[1..10] of longint;
 begin
 for i:=1 to 3 do 
mk[i]:=0;

for i:=1 to n do
 if mk[1]<m[i] then 
  begin 
  mk[3]:=mk[2]; 
  mk[2]:=mk[1]; 
  mk[1]:=m[i]; 
  end else
 if (mk[2]<m[i]) and (m[i]<>mk[1]) then 
  begin 
  mk[3]:=mk[2]; 
  mk[2]:=m[i]; 
  end else
 if (mk[3]<m[i]) and (mk[2]<>m[i]) then mk[3]:=m[i];

write(mk[1],' ',mk[2],' ',mk[3]);
 end;

Скорее всего это можно было написать чище и оптимальнее, но вот моё решение на скорую руку