Pascal/Estrutura de Dados
Aspeto
< Pascal
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.
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.