Надо составить понятия! понятия: дуб, растение, ясень, дерево, кустарник, малина, смородина. !

                                                    растение

 

                            дерево                                       кустарник 

                                 

                            ясень                                           смородина

                            дуб                                                     малина 

Uses graphabc; var f: boolean; //переменная для выхода из программы procedure keydown(key: integer); beginif key=vk_return then f: =false; //если нажата enter-меняем значение флагаwindow.caption: ='программа завершена'; end; var   x,y: integer;       r: real; beginf: =true; //программа включена на работуsetwindowsize(600,600); //квадратное окноwindow.caption: ='для окончания нажмите enter'; lockdrawing; r: =1; x: =windowwidth-round(50*r); y: =round(50*r); repeatwhile (y< windowheight-round(50*r))and f do  begin  r: =r+0.002;   window.clear;   sleep(1);   drawcircle(x,y,round(50*r));   moveto(round(x+50*r),y);   arc(x,y,round(10*r),220,320);   arc(x,y,round(30*r),220,320);   drawcircle(x-round(20*r),y-round(14*r),round(10*r));   drawcircle(x+round(20*r),y-round(14*r),round(10*r));   y: =y+1;   x: =x-1;   redraw;   onkeydown : = keydown; //если нажмем enter, сменится флаг на false   end;                   // и программа завершится   x: =windowwidth-round(50*r); y: =windowheight-round(50*r); while (y> =round(50*r)) and f do  begin  window.clear;   sleep(1);   r: =r-0.002;   drawcircle(x,y,round(50*r));   moveto(round(x+50*r),y);   arc(x,y,round(10*r),220,320);   arc(x,y,round(30*r),220,320);   drawcircle(x-round(20*r),y-round(14*r),round(10*r));   drawcircle(x+round(20*r),y-round(14*r),round(10*r));   y: =y-1;   x: =x-1;   redraw;   onkeydown : = keydown;   end; x: =windowwidth-round(50*r); y: =round(50*r); until   not f;   end.