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

vara,b,c:integer;beginreadln(a,b);if a=b then begin  a:=0;  b:=0; end else  begin   c:=a+b;   a:=c;   b:=c;  end;writeln('A=',a,' B=',b);end.

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.