Ребят, срочно!!! 50 БАЛЛОВ!!! ПАСКАЛЬ!!! 2 И 3 ЗАДАНИЕ!!! 50!!!

Задание #2Var r, rz, g, gz, fin: integer;Beginr := StrToInt(Edit 1. Text) ;rz := StrToInt(Edit 2. Text) ;g := StrToInt(Edit 3. Text) ;gz := StrToInt(Edit 4. Text) ;fin := ( r * rz) + ( g * gz) ;Edit 5. Text := IntToStr(fin) ;End;Задание #3Var x, fom: integer;Beginx := StrToInt(Edit 1. Text) ;fom := ((3 * sqr(x)) /sqrt(x + 2)) - 4;Edit2.text := IntToStr(fom) ;End;