var
i,o,k,m: integer;
s: string;
begin
for i:=10 to 99 do begin
k:=i*3;
str(k,s);
m:=k mod 10;
if length(s)=3 then begin
m:=m+(k div 100)+((k mod 100)div 10); end else
m:=m+(k div 10);
if (m mod 5)=0 then writeln(i);
end;
var
i,o,k,m,j: integer;
s: string;
begin
for i:=10 to 99 do begin
k:=i*3;
str(k,s);
m:=k mod 10;
if length(s)=3 then begin
m:=m+(k div 100)+((k mod 100)div 10); end else
m:=m+(k div 10);
if (m mod 5)=0 then j:=j+1;
end;
WriteLn(j);
end.
if (m mod 5)=0 then begin
j:=j+1;
writeln(m);
end;
count := 0;
for n := 10 to 99 do
if ((n mod 10) + (n div 10)) mod 5 = 0 then inc(count);