// Este codigo ha sido generado por el modulo psexport 20150822-w32 de PSeInt.
// Es posible que el codigo generado no sea completamente correcto. Si encuentra
// errores por favor reportelos en el foro (http://pseint.sourceforge.net).
 
Program compara;
 
Type
	// Para las variables que no se pudo determinar el tipo se utiliza la constante
	// SIN_TIPO. El usuario debe reemplazar sus ocurrencias por el tipo adecuado.
	SIN_TIPO = Real;
Var
	a: SIN_TIPO;
	b: SIN_TIPO;
Begin
	WriteLn('Dame el primer número: ');
	ReadLn(a);
	WriteLn('Dame el segundo número: ');
	ReadLn(b);
	If a>b Then Begin
		WriteLn(a,' es mayor');
	End
	Else Begin
		WriteLn(b,' es mayor');
	End;
End.