Exercício 04 While - 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 while04 ;
var
 vinho,cont,branco,rose,tinto : integer;
 Begin
  cont := 1;
  While cont <> 0 do
  Begin 
    WriteLn('1 ==== Branco');
    WriteLn('2 ==== Rose');
    WriteLn('3 ==== Tinto');
    Writeln('0 ==== Sair');
    Write('Opcao: ');
    readln(vinho);
  clrscr;
    if vinho = 1 then
     branco := branco + vinho
    else if vinho = 2 then 
     rose := rose + vinho
    else if vinho = 3 then     
     tinto := tinto + vinho
    else if vinho = 0 then      
     cont := 0
    else Writeln('Opcao Incorreta'); 
  end;  
 Writeln('Branco: ',branco);
 Writeln('Rose  : ',rose);
 Writeln('Tinto : ',tinto);    
 End.

Categories: Pascal , Programação