program potega_r;

{$APPTYPE CONSOLE}

uses
SysUtils;

var

wyn: integer;

function modu(tab:array of integer;ile :integer): integer;
begin
if ile<0 then modu:=0
else
modu:= tab[ile] mod 5 + modu(tab,ile-1);

end;

var
ile,i:integer;
tab:array[0..100] of integer;
begin
randomize;
readln(ile);
for i := 1 to ile do
tab[i]:=random(20)+1;

for i := 1 to ile do
write(' ',tab[i]);
writeln('');
writeln(modu(tab,ile));
readln;
end.