program p1;
label 1;
var i,n,sum:integer;
    prod:char;
 
begin
1:write('N= '); readln(n);
sum:=0;
i:=0;
while (i+1) do begin
if i mod 5=0 then sum:=sum+i;
i:=i+1;
end;
 
writeln('Summa= ',sum);
 
write('Vi xotite prodoljiti? (y/n) ');  readln(prod);
if prod='y' then goto 1;
readln;
end.