Помогите написать программу в языке Pascal ABC (решение с помощью if, then, else)

Question

Помогите написать программу в языке Pascal ABC (решение с помощью if, then, else)

---

Answer 1

Var a,b,s:integer;
begin
         a:= 17;
         b:= 46;
         s:= a+b;
         if a<>b then 
                            begin
                                     a:= s;
                                     b:= s
                             end
                       else
                             begin
                                      a:=0;
                                      b:=0
                             end;
          write('a = ',a,' b = ',b)
end.