Program loja;
var
    matQuantidade, matPreço:[array 1..30] of integer;
    vendidos,i,j,menu:integer;


begin
    repeat
    writeln ('Digite 1 para informar a quantidade dos produtos');
    writeln ('Digite 2 para informar o preço de cada produto');
    writeln ('Digite 3 para informar uma venda');
    writeln ('Digite 4 para ver os produtos com menos de 5 itens no estoque');
    writeln ('Digite 5 para encerrar o dia');
    readln (menu);
        if menu = 1 then
        begin
            for i:1 to 30 do
            begin
                writeln ('Digite a quantidade dos produtos');
                readln (i);
            end;
            matQuantidade :=[i];
        end;
        if menu = 2 then
        begin
            for j:= 1 to 30 do
            begin
                writeln ('Digite o preço dos produtos');
                readln (j);
            end;
            matPreço:= [j];
        end;
        if menu = 3 then
        begin
            writeln ('Digite qual produto foi vendido');
            readln (i);
            writeln ('Informe a quantidade do produto vendido');
            readln (vendidos);
            matQuantidade[i]:= matQuantidade[i] - vendidos;
        end;
        if menu = 4 then
        begin
            if matQuantidade[i] <5 then
            writeln ('Os produtos que estão com menos de 5 no estoque sao ' , i);
        end;
    until menu :=5;
        begin
            lucro := matVendas[vendidos]*matPreço[j];
            writeln ('O lucro do dia foi ', lucro);
            writeln ('Obrigado por usar o programa');