diff --git a/20_Task/M1/10_Variable/VariableForm.pas b/20_Task/M1/10_Variable/VariableForm.pas
index ce9d2fe..c5ba42d 100644
--- a/20_Task/M1/10_Variable/VariableForm.pas
+++ b/20_Task/M1/10_Variable/VariableForm.pas
@@ -14,10 +14,12 @@   TForm1 = class(TForm)
     edtSum: TEdit;
     Label2: TLabel;
     procedure Button1Click(Sender: TObject);
+
   private
     // ÀÌ Æû(À¯´Ö)¿¡¼­¸¸ »ç¿ëÇÏ´Â º¯¼ö¿Í ÇÔ¼ö¸¦ ¼±¾ð
 
     { TODO : (1) Á¤¼ö Çü FSum º¯¼ö¸¦ ¼±¾ðÇϼ¼¿ä. }
+  FSum : integer;
 
     function AddNum(ANum: Integer): Integer;
   public
@@ -32,16 +34,22 @@ implementation
 {$R *.dfm}
 
 function TForm1.AddNum(ANum: Integer): Integer;
+var
+Num, Sum : integer;
+
 begin
   { TODO :
       (2) FSum º¯¼ö¿¡ ÆĶó¸ÞÅÍ ANum °ªÀ» ´õÇÕ´Ï´Ù.
           FSum º¯¼ö ¹Ýȯ }
-  Result := 0;
+
+  FSum := FSum + ANum;
+  Result := FSum;
 end;
 
 procedure TForm1.Button1Click(Sender: TObject);
 var
-  Num, Sum: Integer;  // ÀÌ°÷¿¡ ¼±¾ðµÈ º¯¼ö´Â ÀÌ ÇÔ¼ö¿¡¼­¸¸ »ç¿ëÇÕ´Ï´Ù.
+  Num, Sum: Integer;
+  // ÀÌ°÷¿¡ ¼±¾ðµÈ º¯¼ö´Â ÀÌ ÇÔ¼ö¿¡¼­¸¸ »ç¿ëÇÕ´Ï´Ù.
 begin
   Num := StrToInt(edtNum.Text);
   Sum := AddNum(Num);
diff --git a/20_Task/M1/20_Function/FunctionForm.pas b/20_Task/M1/20_Function/FunctionForm.pas
index f9f7a4d..d6b2531 100644
--- a/20_Task/M1/20_Function/FunctionForm.pas
+++ b/20_Task/M1/20_Function/FunctionForm.pas
@@ -26,6 +26,9 @@   TForm2 = class(TForm)
     function GetNameMsg(AName: string): string;
 
     function GetAgeMsg(AName: string; AAge: Integer): string;
+
+    function GetUserInfoMsg(AName: string; AAge: Integer; A : boolean): string;
+
     { TODO :
         (2-1) GetUserInfoMsg ÇÔ¼ö¸¦ ¼±¾ð
           ÆĶó¸ÞÅÍ: À̸§(¹®ÀÚ), ³ªÀÌ(¼ýÀÚ), ³²ÀÚ¿©ºÎ(Boolean)
@@ -53,12 +56,34 @@ function TForm2.GetNameMsg(AName: string): string;
   Result := Msg;
 end;
 
-function TForm2.GetAgeMsg(AName: string; AAge: Integer): string;
+function TForm2.GetUserInfoMsg(AName: string; AAge: Integer;
+  A: boolean): string;
 var
-  Msg, Adult: string;
+  Aman,Msg : string;
+
 begin
+   AMan := '³²ÀÚ';
+   if A = false then
+   AMan := '¿©ÀÚ';
+  Msg := GetAgeMsg(AName, AAge );
+
+  Msg :=  Msg + #13#10 + AName + '´ÔÀº ' + AMan + 'ÀÔ´Ï´Ù.' ;
+
+   result := Msg;
+end;
+
+function TForm2.GetAgeMsg(AName: string; AAge: Integer): string;
+var
+  Msg: string;
+  Adult : string;
+  begin
+    Adult := '¹Ì¼º³â';
+    if AAge >= 20  then
+    Adult := '¼ºÀÎ';
+
+
   Msg := GetNameMsg(AName); // Àλ縻 Ç¥½Ã´Â Àç»ç¿ë
-  Msg := Msg + #13#10;      // ÇÑÁÙ ³»·Á¾²±â(Àϸí ij¸®Áö¸®ÅÏ)
+  Msg := Msg + #13#10 + AName + '´ÔÀº ' + inttostr(AAge) + '¼¼·Î ' + Adult + 'ÀÔ´Ï´Ù.' ;      // ÇÑÁÙ ³»·Á¾²±â(Àϸí ij¸®Áö¸®ÅÏ)
 
 { TODO :
     (1) Msg º¯¼ö¿¡ '(AName)´ÔÀº (AAge)¼¼·Î (¼ºÀÎ/¹Ì¼º³â)ÀÔ´Ï´Ù.' ¸Þ½ÃÁö Ãß°¡
@@ -70,9 +95,11 @@ function TForm2.GetAgeMsg(AName: string; AAge: Integer): string;
   Result := Msg;
 end;
 
+
 procedure TForm2.Button1Click(Sender: TObject);
 var
   Name, Msg: string;
+
 begin
   Name := edtName.Text;
 
@@ -85,6 +112,7 @@ procedure TForm2.Button2Click(Sender: TObject);
 var
   Name, Msg: string;
   Age: Integer;
+
 begin
   Name := edtName.Text;
   Age := StrToInt(edtAge.Text);
@@ -104,6 +132,7 @@ procedure TForm2.Button3Click(Sender: TObject);
   Age := StrToInt(edtAge.Text);
   IsMan := rdoMan.Checked;
 
+  MSg := GetUserInfoMsg(Name, Age, IsMan);
 { TODO :
     (2) Àλ縻 + ¼ºÀο©ºÎ È®ÀÎ + ¼ºº°È®ÀÎ ¸Þ½ÃÁö¸¦
         ¹ÝȯÇÏ´Â ÇÔ¼ö(GetUserInfoMsg)¸¦ ÀÛ¼ºÇϼ¼¿ä
diff --git a/20_Task/M1/30_Array/ArrayForm.pas b/20_Task/M1/30_Array/ArrayForm.pas
index c495570..3a32139 100644
--- a/20_Task/M1/30_Array/ArrayForm.pas
+++ b/20_Task/M1/30_Array/ArrayForm.pas
@@ -20,6 +20,7 @@   TForm3 = class(TForm)
     procedure InitArray;
     function GetArraySum: Integer;
     function GetArrayMaxNum: Integer;
+
   public
     { Public declarations }
   end;
@@ -32,6 +33,7 @@ implementation
 {$R *.dfm}
 
 procedure TForm3.FormCreate(Sender: TObject);
+
 begin
   InitArray;
 end;
@@ -40,6 +42,7 @@ procedure TForm3.FormCreate(Sender: TObject);
 procedure TForm3.InitArray;
 var
   I: Integer;
+
 begin
   // ¹è¿­(FNumArr)ÀÇ ±æÀ̸¸Å­ ¹Ýº¹Çϸç ÀÓÀÇÀÇ °ª(1~100)À» ¼³Á¤
   for I := 0 to Length(FNumArr) - 1 do
@@ -50,7 +53,9 @@ procedure TForm3.Button1Click(Sender: TObject);
 var
   I: Integer;
   Sum, MaxNum: Integer;
+
 begin
+
   // ¹è¿­ÀÇ ÇÕ
   Sum := GetArraySum;
 
@@ -65,6 +70,11 @@ procedure TForm3.Button1Click(Sender: TObject);
     ¹è¿­ÀÇ Å©±â º¯°æµÇµµ µ¿ÀÛÇϵµ·Ï ¹Ýº¹ÀÇ ³¡Àº Length(FNumArr) - 1·Î ¼³Á¤
      ¿¹> for I := 0 to Length(FNumArr) - 1 do }
 
+  for I := 0 to Length(FNumArr) - 1 do
+    begin
+      Memo1.Lines.Add('-'+ inttostr(Fnumarr[i]));
+    end;
+
   Memo1.Lines.Add('¹è¿­ÀÇ ÇÕÀº ' + IntToStr(Sum) + ' ÀÔ´Ï´Ù.');
   Memo1.Lines.Add('¹è¿­ÀÇ ÃÖ´ë°ªÀº ' + IntToStr(MaxNum) + ' ÀÔ´Ï´Ù.');
 end;
@@ -72,21 +82,32 @@ procedure TForm3.Button1Click(Sender: TObject);
 function TForm3.GetArraySum: Integer;
 var
   I, Sum: Integer;
+
 begin
   Sum := 0;
   { TODO : (2) for ¹®À» ÀÌ¿ëÇØ ¹è¿­ÀÇ °ªÀ» ¸ðµÎ ´õÇØ ¹ÝȯÇϵµ·Ï ±¸Çö }
-
+  for I := 0 to Length(FNumArr) - 1 do
+   begin
+      Sum := sum+fnumarr[i];
+   end;
   Result := Sum;
 end;
 
 function TForm3.GetArrayMaxNum: Integer;
 var
   I, MaxNum: Integer;
+
 begin
   MaxNum := 0;
   { TODO :
     (3) for ¹®À» ÀÌ¿ëÇØ ¹è¿­ÀÇ °ª Áß °¡Àå Å« °ªÀ» ¹ÝȯÇϵµ·Ï ±¸Çö
         if ¹®À» ÀÌ¿ëÇØ ¼ýÀÚ¸¦ ºñ±³  }
+  for I := 0 to Length(FNumArr) - 1 do
+   begin
+    if FNumArr[i] >= maxnum then
+       maxnum := fnumarr[i];
+   end;
+
 
   Result := MaxNum;
 end;
@@ -95,6 +116,7 @@ procedure TForm3.Button2Click(Sender: TObject);
 var
   I,
   CountOver, CountUnder: Integer;
+
 begin
   CountOver := 0;
   CountUnder := 0;
@@ -104,6 +126,16 @@ procedure TForm3.Button2Click(Sender: TObject);
           50 ¹Ì¸¸(<)ÀÎ °æ¿ì CountUnder 1 Áõ°¡ Çϵµ·Ï ±¸Çö
   }
 
+  for I := 0 to Length(FNumArr) - 1 do
+   begin
+    if FNumArr[i] >= 50 then
+    begin
+       countover := countover+1;
+    end
+
+    else countunder := countunder+1;
+   end;
+
   Memo1.Lines.Add('50 ÀÌ»óÀÎ ¼öÀÇ °¹¼ö: ' + IntToStr(CountOver));
   Memo1.Lines.Add('50 ¹Ì¸¸ÀÎ ¼öÀÇ °¹¼ö: ' + IntToStr(CountUnder));
 end;