Помогите решить 17 и 18 вариант

Var A,B,i:integer; Begin For i:= 1 to 7 do     Begin     Write('A = ');ReadLn(A);     Write('B = ');ReadLn(B);     WriteLn('C = ',A*A+B*B);     End; End. Var A,B,i:integer; Begin For i:= 1 to 7 do     Begin     Write('A = ');ReadLn(A);     Write('B = ');ReadLn(B);     WriteLn('C = ',sqr(A+B));     End; End.