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

Вывести новые значения переменных A и B.

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.

автор: Sklyarov Sergej a.k.a. S9