Даны два числа. если они не равны, то замените каждое из них большими вывести результат. если они равны, то вывести их удвоенную сумму

Var a, b:integer;

sum:integer;

begin

writeln ('введите первое число') ;

readln (a) ;

writeln ('введите второе число') ;

readln (b) ;

if (ab) then

begin

a:=a+1;

b:=b+1;

writeln ('числа не равны') ;

writeln ('a = ', a) ;

writeln ('b = ', b) ;

end;

if (a=b) then

begin

sum:=a+b;

sum:=sum*2;

writeln ('числа равны') ;

writeln ('удвоенная сумма = ', sum) ;

end;

end.