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

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