Визначте, якого значення набуває змінна В після виконання фрагмента програми. var A, B, C, Max: Integer; begin A := 13; B := 12; If A > B*B Then B := A-B;If B > A-1 Then begin B := B-A; A:= A-B end Else begin A := A-B; B := B-A end; {…}