Если значения переменных не равны, то присвоить каждой сумму этих значений

Serjant0007

Даны две переменные целого типа: A и B. Если их значения не равны, то присвоить каждой переменной сумму этих значений, а если равны, то присвоить переменным нулевые значения.
program zadacha;
uses crt;
var A, B,sum: integer;
begin
   write('A = '); readln(A);
   write('B = '); readln(B);
sum:=A+B;
if A = B then begin A := 0; B := 0; end
else A := sum; B:=sum;
writeln('A= ', A, '; B = ', B);
readln
end.
Все считает тока например ввожу 5 и 5 он А присваивает 0 а В считает сумму и присваивает 10
2 ответа

Serjant0007

else begin A := sum; B:=sum;end


Serjant0007

Uses crt;
Var
a,b,s: Integer;
Begin
Write('Введите A и B: '); Readln(a,b);
s:=a+b;
If a<>b Then
begin
 a:=s;
 b:=s;
 Writeln('A= ',a,' B= ',b);
end
Else
begin
 a:=0;
 b:=0;
 Writeln('A= ',a,' B= ',b);
end;
Readln
End.