Даны две переменные целого типа: A и B. Если их значения не равны, то присвоить каждой переменной разность этих значений, а если равны, то присвоить переменным нулевые значения. Вывести новые значения переменных A и B.
program primer;
uses crt;
var A,B:integer;
begin
clrscr;
writeln('vvedite A,B');
readln(A,B);
if A<>B then
begin A:=A-B; B:=A-B; end
else begin A:=0; B:=0; end;
writeln('A=',A);
writeln('B=',B);
readln
end.
Буду благодарна, если отметите