const n=100
var a:arrya [1..n] of integer;
i:integer;
begin
for i:=1 to n-1 do
a[n+1]:=a[n]+1;
for i:=1 to n do
if (a[i] mod 5)=0 then writeln(a[i]);
end.
var i:integer;
for i:=0 to 100 do
if i mod 5 = 0 then writeln(i);
const n=100
var a:arrya [1..n] of integer;
i:integer;
begin
for i:=1 to n-1 do
a[n+1]:=a[n]+1;
for i:=1 to n do
if (a[i] mod 5)=0 then writeln(a[i]);
end.
var i:integer;
begin
for i:=0 to 100 do
if i mod 5 = 0 then writeln(i);
end.