Что будет нарисовано после выполнения чертежником алгоритма
Использовать чертёжник
Алг.
Нач.
Сместиться в точку(2,3)
Опустить перо
Сместиться в точку(3,8)
Сместиться в точку(8,3)
Сместиться в точку (2,3)
Кон.

- DrinkActivity.java

TextView t ;

public void onCreate(Bundle savedInstanceState) {

           super.onCreate(savedInstanceState);

           setContentView(R.layout.activity_drink);

           t = (TextView)findViewById(R.id.TextView01);

           t.setOnClickListener((android.view.View.OnClickListener) this);

           }

public void onClick(View arg0) {

           t.setText("My text on click");  

           }

- activity_drink.xml

<LinearLayout  

   android:id="@+id/LinearLayout01"  

   android:layout_width="wrap_content"  

   android:layout_height="wrap_content">

</LinearLayout>

<ListView

   android:id="@+id/ListView01"

   android:layout_width="wrap_content"

   android:layout_height="match_parent" >

</ListView>

<LinearLayout  

   android:id="@+id/LinearLayout02"  

   android:layout_width="wrap_content"    

   android:layout_height="wrap_content">

</LinearLayout>

<TextView android:text="This is my first text"

android:id="@+id/TextView01"  

android:layout_width="wrap_content"  

android:textStyle="bold"

android:textSize="28sp"

android:editable="true"

android:clickable="true"

android:layout_height="wrap_content"

android:onClick="onClick">

</TextView>

Объяснение:

var  mas1, mas2: array[0..9] of integer;  t, k, i, j: integer; 
begin  
readln(t);  
readln(k);  
for j := 0 to 1 do  begin   
      if (j = 1) then writeln();        
                 for i := 0 to 9 do    begin      
                          if(j = 0) then begin       
                                  mas1[i] := random(100);        
                                    write(mas1[i], ' ');       
                                    if mas1[i] > t Then mas1[i] := mas1[i] + 4;      
                              end      
                            else 
                               begin       
                                      mas2[i] := random(100);        
                                      write(mas2[i], ' ');       
                                       if mas2[i] > 10 * K Then         
                                            mas2[i] := mas2[i] + K;      
                                end;    
                       end;       
                  for i := 0 to 9 do     
                         if (j = 0) then 
                               write(mas1[i]) 
                        else 
                                write(mas2[i]);    
               writeln();  
           end;  
readln();
end.

))