LISTA02_EX14 2014/02

//ALUNO: Luiz Henrique Forino
//PROGRAMAÇÃO I, PROFESSOR PX
//2014/02

Program EX07_LISTA02 ;

var x, y, total :real;  //y para quantidade,
var w :integer;
Begin
  writeln ('Digite o código do produto: ');
  readln (w);
  writeln ('Digite a quatntidade que foi comprada: ');
  readln (y);

  case w of
  1001 : begin x := (5.32*y);

      writeln ('Valor da dívida: ', x, '.')
    end;
  1324 : begin x := (6.45*y);

    writeln ('Valor da dívida: ', x, '.');
    end;
  6548 : begin x := (2.37*y);

    writeln ('Valor da dívida: ', x, '.');
    end;
  7623 : begin x := (6.45*y);

    writeln ('Valor da dívida: ', x, '.');
    end;

  else writeln ('Código não identificado.');
  readkey;
  end;
End.