Помогите пожалуйста. Задача Паскаль. Даны две переменные целого типа A и B. Если их значения не равны,то присвоить каждой переменной сумму этих значений, а если равны, то присвоить переменным нулевые значения. Вывести на экран новые значения A и B.

VarA,B,C:integer;BeginWrite('A = ');ReadLn(A);Write('B = ');ReadLn(B);if A<>B then   Begin   C:=A+B;   A:=C;   B:=C   Endelse   Begin   A:=0;   B:=0   End;WriteLn('A = ',A);WriteLn('B = ',B);End.