Кто может нарисовать Блок Схему к этой задачки

procedure TForm1.Button1Click(Sender: TObject);
var a:array[0..19] of real;
i:integer; max,min:real;
begin
max:=-32000;
min:=32000;
for i:=0 to 19 do
a[i]:=StrToInt(Memo1.lines[i]);
for i:= 0 to 19 do
begin
if a[i]>max then
max:=a[i];
if a [i] end;
edit1.text:=floatToStr(max);
edit2.text:=floatToStr(min);
end;
end.

ответ:

орна́мент (лат. ornamentum «украшение») — узор, основанный на повторе и чередовании составляющих его элементов; предназначается для украшения различных предметов (утварь, орудия и оружие, текстильные изделия, мебель, книги и так далее), архитектурных сооружений (как извне, так и в интерьере), произведений пластических искусств (главным образом прикладных), у первобытных народов также самого человеческого тела (раскраска, татуировка).

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

объяснение:

i'm going to read a lot of books this year. я собираюсь прочесть много книг в этом году.

we hope you will solve all your problems soon. мы надеемся, что вскоре ты решишь все свои проблемы.

when everyone took their places my grandmother said "well, now listen to stories". когда все заняли свои места, моя бабушка сказала: "ну, теперь послушайте ".

i will try to answer all your questions. я постараюсь ответить на все твои вопросы.

we're going to discuss this buisness plan with our partners. мы собираемся обсудить этот бизнес-план с нашими партнёрами.