//Variaveis globais
var
var1,var2 : inteiro;
var3: real;

//-----------------FUNÇÕES:---------------------------

funcao func_1 (var_param : inteiro ) : inteiro
var
//a: inteiro;
inicio
    escreva("Func_1: var_param -> ",var_param);
    retorne var_param + 1;
fimfuncao

//-------------INICIO PROGRAMA(principal):-----------------------
inicio
    escreva("");
    escreva("-----Inicio-----");
    var1 <- 1;
    var1 <- func_1(var1);
    escreva("Valor retornado por func_1: ",var1);

    escreva("");
    escreva("Escreva um inteiro:");
    leia(var1);
    escreva("Valor lido: ",var1);

    se (var1 % 2) = 0
         escreva("O número que você digitou é PAR");
    senao
        escreva("O número que você digitou é IMPAR");
    fimse
    escreva("");

    escreva("-----Enquanto---------");
    var2 <- 1;
    enquanto var2 <= 5
        escreva("Var2: ",var2);
        var2 <- var2 + 1;
    fimenquanto
    escreva("Var2 após enquanto: ",var2);
    escreva("");

    escreva("-----Para---------");
    var2 <- 1;
    para var2 de 1 ate 10
        escreva("i: ",var2);
    fimpara
    escreva("Var2 após para: ",var2);
    escreva("");


    escreva("-----Escolha---------");
    escreva("Escreva um inteiro:");
    leia(var1);
    escolha var1
        caso 1 :
          escreva("Você digitou: ",var1);
        caso 2 :
          escreva("Você digitou: ",var1);
        caso 3 :
          escreva("Você digitou ",var1);
    fimescolha
fimalgoritimo