6. учащийся готовит проект по искусству и сохраняет документ «© алматы-2018». емунеобходимо снять видео в краеведческом музее.а) опишите назначение данного знака «© алматы-2018» ! ​

const     n = 60;
 var c : array [1..n] of char; 
    a,s : string;
     r : boolean; 
    i : integer; 
 begin   
 
// Пропускаю формирование массива

    writeln ('введите искомое слово');  
 readln (a); 
  for i := 1 to n do    begin 
    if c[i] <> ' '  then 
     s := s + c[i]; 
   if (c[i] = ' ') or (i = n) then
       begin        writeln (s); 
        if a=s then     
           r := true;     
     s := '';     
         end;    
 end;  

   if r then 
 writeln ('есть')   
 else  
   writeln ('нет');
 end.

Pascal

 const     n = 9;
 var
  i,min,b : integer;
  a : array [1..n] of integer;
 begin    
  for i := 1 to n do
    a[i] := 10 + random (141); 

         min := 151;
   for i := 1 to n do 
   begin     if a[i] < min then
      begin   
   if a[i] div 100 > 0 then   
     b := ((a[i] div 10) - (a[i] mod 10)) div 10 
       else          b := a[i] div 10;   
    if b mod 2 = 1 then   
     min := a[i];      
      end;   
   end;   
   if min = 151 then 
  writeln ('not found')   
  else      writeln (min); 
 end.