Мне задали написать доклад об околоводных птицах и ещё мне написать о фламинго

Внешность

у фламинго тонкие длинные ноги, гибкая  шея  и  оперенье, окраска которого варьирует от белого до красного цвета. их особым отличительным признаком является массивный выгнутый вниз  клюв, с которого они фильтруют пищу из воды или  ила. в отличие от большинства других птиц, подвижной частью клюва у фламинго является не нижняя, а верхняя часть. передние пальцы ноги соединены плавательной перепонкой. розовую или красную окраску оперению фламинго красящие вещества  липохромы, которые птицы получают вместе с пищей. при опасности они взлетают, и хищнику трудно выбрать из них определённую жертву, тем более что маховые перья на крыльях всегда чёрные, и при полёте они мешают сфокусироваться на жертве. в  зоопарках  фламинго не теряют свою уникальную окраску оперения, так как в пищу им добавляют различные содержащие  каротин  продукты: тёртая  морковь,  сладкий перец  и, главное, мелких ракообразных.

Var a,b,c,z,p,r: real; begin writeln ('введите катет а '); readln (a); writeln ('введите катет b '); readln (b); z: =sqr(a)+sqr(b); c: =sqrt(z); writeln ('гипотенуза равна ',c); p: =(a+b+c)/2; {по формуле герона нахожу полупериметр} r: =sqrt(p*(p-a)*(p-b)*(p-c)); writeln ('площадь треугольника равна --> ',r); end. надеюсь блок схема понятна