Pascal/Estrutura de Dados

  Uses Crt;

  Var X, Y, A, B : Integer;

  Begin
    Readln (X,Y,A,B);
    If (X > Y) Then
    Begin 
      If (A > B) Then 
        Writeln ('A é maior que B')
      Else  Writeln ('A não é Maior que B');
    End;
  End.