Дано 2 числа.Если их сумма больше 100,то сумму уменьшить в 2 раза.В противном случае увеличить в 2 раза

Program n1;var a,b,sum: real;beginreadln(a,b);sum:=a+b;if sum>100 then sum:=sum/2 else sum:=sum*2;write(sum); end.