18.04.03.01.01.04 usando

 

Agora vamos usar nossa nova instrução.

 

 

$ include "seed7_05.s7i";       # Standard Seed7 library - Biblioteca padrao Seed7

 

const proc: main is func

local

    var string: strNumero is "";

begin

    write("Digite o numero 1 ou outro:");

    readln(strNumero);

    se strNumero = "1" entao

        write("um");

    senao

        write("desconhecido");

    fim se;

end func;