Pascal/Turbo Pascal - falta el ; en la primera condición.

begin

  writeln (A);

  read (A);

  writeln (B);

  read (B);

  if A>B then (A);

  else (B);

  if B>A then (B);

  else (B=A);

  read (tonta);

end.

{Mira esto}

var

  a, b : integer;

begin

   write('Entre  A : ');

   readln(A);

   write('Entre  B : ');

   readln(B);

  if A > B then

  writeln('A es mayor que B ',A)

 else

  writeln('B es mayor que A ',B);

  if B > A then

  writeln('B es mayor que A ',B)

 else

   begin

   B := A;

   writeln('B pasa a tener el valor de A ',B);

   end;

 readln;

end.