hugo oliveira_738262

Olá. Estou tendo dificuldade para resolver um programa para receber e comparar preços um determinado produto de fornecedores. No entanto foi pedido para resolver utilizando ate 3 fornecedores e no máximo 5, mais para melhorar eu criei o programa para fazer comparações de ate no máximo 5 fornecedores. Montei o programa testei beleza mais quando eu utilizo de menos que 5 fornecedores o programa esta comparando o preço dos fornecedores que você informou + com o preço dos fornecedores que você nao utilizou e esta me racando a cabeçeira . me ajudem se possivel =D Program Pzim ;Var PO, UN, F1, F2, F3, F4, F5, MF: string;FO, K: integer;P1, P2, P3, P4, P5, UN1, UN2, UN3, UN4, UN5, Q1, Q2, Q3, Q4, Q5, MP: real;Beginwriteln('Programa para calcular cotação de um determinado produto');writeln('Digite o nome do produto ao qual sera realizado a cotação e tecle enter');readln(PO);writeln('Digite a quantidade de fornecedores que irão participar da cotação.');writeln('Obs.: Máximo de 5 fornecedores.');readln(FO);while FO>5 do begin writeln('Você ecedeu o valor máximo de 5 fornecedores. Por favor faça a cotação com no máximo 5 fornecedores');writeln('Digite a quantidade de fornecedores que irão participar da cotação.');writeln('Obs.: Máximo de 5 fornecedores.');readln(FO);end;writeln('Digite a unidade de medição utilizada para quantificar o produto e tecle enter');readln(UN);K:=1;MP:=0;if K<=FO thenbeginwriteln('Digite o nome do ',K ,'º fornecedor e tecle enter');readln(F1);writeln('Digite o preço do produto do ',K ,'° fornecedor e tecle enter');readln(P1);writeln('Digite a quantidade em ',UN,' contida na embalagem do produto do ',K ,'º fornecedor e tecle enter');readln(Q1);UN1:=P1/Q1;K:=(K+1);if (MP>UN1) then beginMP:=UN1;MF:=F1;end;end;if K<=FO thenbeginwriteln('Digite o nome do ',K,'º fornecedor e tecle enter');readln(F2);writeln('Digite o preço do produto do ',K,'° fornecedor e tecle enter');readln(P2);writeln('Digite a quantidade em ',UN,' contida na embalagem do produto do ',K,'º fornecedor e tecle enter');readln(Q2);UN2:=P2/Q2;K:=(K+1);if (MP>UN2) then beginMP:=UN2;MF:=F2;end;end;if K<=FO thenbeginwriteln('Digite o nome do ',K,'º fornecedor e tecle enter');readln(F3);writeln('Digite o preço do produto do ',K,'° fornecedor e tecle enter');readln(P3);writeln('Digite a quantidade em ',UN,' contida na embalagem do produto do ',K,'º fornecedor e tecle enter');readln(Q3);UN3:=P3/Q3;K:=(K+1);if (MP>UN3) then beginMP:=UN3;MF:=F3;end;end;if K<=FO thenbeginwriteln('Digite o nome do ',K,'º fornecedor e tecle enter');readln(F4);writeln('Digite o preço do produto do ',K,'° fornecedor e tecle enter');readln(P4);writeln('Digite a quantidade em ',UN,' contida na embalagem do produto do ',K,'º fornecedor e tecle enter');readln(Q4);UN4:=P4/Q4;K:=(K+1);if (MP>UN4) then beginMP:=UN4;MF:=F4;end;end; if K<=FO thenbeginwriteln('Digite o nome do ',K,'º fornecedor e tecle enter');readln(F5);writeln('Digite o preço do produto do ',K,'° fornecedor e tecle enter');readln(P5);writeln('Digite a quantidade em ',UN,' contida na embalagem do produto do ',K,'º fornecedor e tecle enter');readln(Q5);UN5:=P5/Q5;K:=(K+1);if (MP>UN5) then beginMP:=UN5;MF:=F5;end;end;writeln('Tabela de fornecedores do produto ', PO);writeln('Nome ',F1,' Quantidade ',Q1,' Preço Total', P1,' Preço por unidade ', UN1);writeln('Nome ',F2,' Quantidade ',Q2,' Preço Total', P2,' Preço por unidade ', UN2);writeln('Nome ',F3,' Quantidade ',Q3,' Preço Total', P3,' Preço por unidade ', UN3);writeln('Nome ',F4,' Quantidade ',Q4,' Preço Total', P4,' Preço por unidade ', UN4);writeln('Nome ',F5,' Quantidade ',Q5,' Preço Total', P5,' Preço por unidade ', UN5);writeln('O fornecedor com o produto de menor preço é: ',MF);writeln('O seu preço por unidade de produto é: ',MP, 'na unidade de ',UN);End.