Какие рекреационные ресурсы имеются в вашем районе и как их можно использовать?

Program gt;
var i:integer;
begin
for i:=1 to 100 do
begin
if((i*3-17)=16)then writeln(i);
end;
end.