Website and domain for sale: mail@discussmain.com

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.

348
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.
262
Answer add