даны числа A и B . Заменить число А на противоположное, а B уменьшить на 2,если числа равны.(ЗАПИСАТЬ НА ЯЗЫКЕ КУБЕСИК)

просила же на qbasic?!!!!

Код Pascal1 if a>b then2 begin3c:=a+b;4 b:=a*b;5  a:=c;6 end7 else8 begin9 c:=a+b;10 a:=a*b; 11   b:=c12   end;