Exercício 04 Repeat - Pascal

4) Construa um algoritmo que permita fazer um levantamento do estoque de vinhos de uma adega,
tendo como dados de entrada tipos de vinho (branco, tinto e rose).

Program repeat04;
uses crt;
var
 opcao,tinto,rose,branco:integer;
Begin
    repeat
        Writeln('V I N H O S');
        Writeln('Tinto --- 1');
        Writeln('Rose ---- 2');
        Writeln('Branco -- 3');
        Writeln('Sair  --- 0');
        Write('opcao: ');
        readln(opcao);
        clrscr;
            if opcao = 1 then
                tinto := tinto + 1
            else if opcao = 2 then
                    rose := rose + 1
                else if opcao = 3 then
                    branco := branco + 1;
                    
    until (opcao = 0);
    Writeln('Tinto : ',tinto);    
    Writeln('Rose  : ',rose);
    Writeln('Branco: ',branco);
        Writeln('                  by Marcus Vinicius');
End.

Categories: Pascal , Programação