Exercicio 4 de Heterogenea

Program Pzim ;
{Faça um algoritmo que leia 7 produtos, contendo codigo, nome, quantidade, preço. No
final, imprima os produtos que tenha mais do que 5 unidades.}
type r_produto = record
    cod:integer;
    nome:string;
    quant:integer;
    preco:real;
end;

var
    v_produto:array [1..3] of r_produto;
    i, qmais5:integer;

 Begin
 qmais5:=0;
    for i:=1 to 3 do
        begin
            writeln('ENTRE COM OS DADOS DOS PRODUUTOS');
            writeln('_______________________________');
            writeln(' ',I,'o. Produto ');
            writeln('_______________________________');
            writeln('Digite o código do Produto: ');
            readln(v_produto[i].cod);
            writeln('Digite o nome do Produto:');
            readln(v_produto[i].nome);
            writeln('Digite a quantidade do Produto: ');
            readln(v_produto[i].quant);
            writeln('Digite o preço do Produto : ');
            readln(v_produto[i].preco);
        clrscr;
        end;
    {aqui cadastra os produtos}
   
        writeln('Produtos com mais de 5 unidades');
    for i:=1 to 3 do
        begin
            if (v_produto[i].quant>5) then
                begin
                    writeln('código: ', v_produto[i].cod, ' - Nome: ',v_produto[i].nome);
                end;
        end;
    {aqui verifica se o produto na posição [i], tem quantidade maior que 5, se tiver, é exibido, se não
    tiver, não faz nada}   
 End.