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

Program If10;

Var
  A, B: Real;

Begin
  WriteLn('Введите числa A и B: ');
  ReadLn(A, B);
  If A <> B Then
  Begin
    A := A + B;
    B := A;
  End
  Else
  Begin
    A := 0;
    B := 0;
  End;
  WriteLn('A = ', A, ' B = ', B);

End.