{Файл: progam_stud.pas
Задача:
  
Автор:
   
Дата:
  }
const
N=81;  
  
var 
a     : array [1..N] of integer;
i, k  : integer;

begin
  {Ввод}
  k:=20;
  For i:=1 to N do
    begin
       a[i]:=k;
       k:=k+1;
    end;
    
  //решение
  writeln ('вывод элементов массива кратных пати');

   For i:=1 to N do
    begin
      if a[i] mod 5 =0 then 
          begin
            write('a[',i,']=',a[i],'  ');
          end
          
    end;
    
    
  writeln ('');

 

 

end.