Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  GuiDiZona
Language: PASCAL
Code:
Program total_produto;

Var quantidade: integer;

       total, preco: integer;

       designa: string;

Begin

    Writeln('Digite a designação do produto');

    Readln(designa);

    Writeln('Digite a quantidade do produto');

    Readln(quantidade);

    Writeln('Digite o preço por unidade de produto');

    Readln(preco);

    total := quantidade * preco;

    Writeln('O valor total do produto ' , designa, ' é ', total);

    Readln;

End.
          
          
Comments: