Даны 2 числа , если первое число больше второго то их удвоить , если равны то вывести сообщения

var a,b:integer;beginreadln(a,b);if a<>b thenbeginif a>b thenbegina:=a*2;b:=b*2end;writeln('a=',a,'   b=',b)endelse writeln(a,'=',b)end.