programa estudando;
var
	inteiro: a, b;
	real: x, y;
	caracter: nome;
inicio
	// Entrada de dados
	escreva ("Digite seu nome: ");
	leia (nome);
	escreva ("Digite um numero real: ");
	leia (x);
	escreva ("Digite outro numero real: ");
	leia (y);
	//Conversão de real para inteiro
	a <- (x div 1);
	b <- (y div 1);
	//Saida de dados
	escreva ("Olá ", nome, ". Bem vindo");
	escreva ("O 1º numero que voce digitou foi ", x, " e seu inteiro eh ", a, ".");
	escreva ("O 2º numero que voce digitou foi ", y, " e seu inteiro eh ", b, ".");
	//verificar qual é maior
	se (X>y) então
	inicio
		escreva ("O ", x, " eh maior que o ", y, ".");
	fim
	senão
	inicio
		se (y>x) então
		inicio
			escreva ("O ", y, " eh maior que o ", x, ".");
		fim
		senão
		inicio
			escreva (x, " eh igual a ", y, ".");
		fim;
	fim;
	//Verifica se é par
	se ((a mod 2) = (0)) então
	inicio
		escreva ("O ", a " eh par");
	fim
	senão
	inicio
		escreva ("O ", a " nao eh par");
	fim;
	se ((a mod 2) = (0)) então
	inicio
		escreva ("O ", a " eh par");
	fim
	senão
	inicio
		escreva ("O ", a " nao eh par");
	fim;
	//Operações simples
	escreva ("A soma de ", x, " e ", y, " eh igual a", x+y, ".");
	escreva ("A multiplicacao de ", x, " e ", y, " eh igual a", x*y, ".");
	escreva ("A soma de ", a, " e ", b, " eh igual a", a+b, ".");
	escreva ("A multiplicacao de ", a, " e ", b, " eh igual a", a*b, ".");
	//Função de exponenciação
	escreva (a, " elevado a ", b, " eh igual a ", exp(a,b);
	escreva (b, " elevado a ", a, " eh igual a ", exp(b,a);
	//Função de radiciação
	escreva ("A raiz quadarada de " a, " eh igual a ", rad(a));
	escreva ("A raiz quadarada de " b, " eh igual a ", rad(b));
fim.