Составить программку в Паскале Даны 2 реальных числа, не равные друг

var a,b,c:real;

begin

   readln(a,b);

   if(a gt; b) then

       begin

           writeln('a Больше');

           c := a;

           a := a*b*3;

           b := (b+c)/ 2;

           writeln('a = ',a,'   b = ',b);

       end;

if(b gt; a) then

       begin

           writeln('b Больше');

           c := b;

           b := a*b*3;

           a := (a+c)/ 2;

           writeln('a = ',a,'   b = ',b);

       end;

end.