Я не знаю не видно в приложении
function k15(a:integer):boolean;
begin
k15:=a mod 15 = 0;
end;
var i: integer;
begin
for i:=200 to 300 do
if k15(i) then write(i,' ');
end.
Результат:
210 225 240 255 270 285 300
Рано, к примеру,больше показателя на ум не приходит
Круг-яблоня, квадрат-сосна, дуб, прямоугольник- ландыш, морковь