Website and domain for sale:

Please count please. Task Pascal. Two variables of the whole A and B type are given. If their values are not equal, then to appropriate to each variable the sum of these values and if are equal, then to appropriate to variables zero values. To display new A and B values.

Var A, B,C: integer; Begin Write (A =); ReadLn(A); Write (B =); ReadLn(B); if A< & gt; B then Begin C: = A+B; A: = C; B: = With End else Begin A: = 0; B: = 0 End; WriteLn (A =, A); WriteLn (B =, B); End.
Answer add