First

var

nome:string;
nome_do_produto:string;
quantidade:byte;
preço:integer;
total:Integer;
número_de_contribuinte:Real;
Deseja_introduzir_o_número_de_contribuinte:Char;

Begin

Writeln('Seja bem vindo/a Qual o seu nome?');
readln(nome);
Writeln('Qual o nome do produto que deseja?');
Readln(nome_do_produto);
writeln('Qual é a quantidade pretendida do mesmo?');
readln(quantidade);
writeln('qual o preço de cada unidade do seu produto?');
Readln(preço);
total:=preço*quantidade;
writeln('a sua compra custar-lhe.à:'total);

End.