AICI 11B !!!!!!

uses crt;
type produs=record
     nick,prod:string[20];
     cant,pret:real;
     end;
     sir=array[1..20] of produs;
var n,i:integer;
   a:sir;

procedure citire(var a:sir;var n:integer);
begin
repeat
write('In magazin avem n produse=');readln(n);
until (n>0) and (n<=30);
for i:=1 to n do with a[i] do begin write('denumire=');readln(nick);
                                    write('producator=');readln(prod);
                                    write('cantitate=');readln(cant);
                                    write('pret=');readln(pret);
                                    end;
end;
procedure afisare(a:sir;n:integer);
begin
write('Produsele din magazin sunt');
for i:=1 to n do with a[i] do writeln(nick,' ',prod,' ',cant:5:2,pret:5:2);
end;
procedure denumire1(var a:sir;n:integer);
var x:string;
begin
write('Producator=');readln(x);
for i:=1 to n do if a[i].prod=x then write(a[i].nick,' ')
                                 else writeln('nu exista produse de la ac producator');

end;
procedure suma(a:sir;n:integer);
var s:real;
begin
s:=0;
for i:=1 to n do s:=s+a[i].pret;
writeln('suma preturilor este:',s:5:2);
end;
begin
clrscr;
citire(a,n);
afisare(a,n);
denumire1(a,n);
suma(a,n);
readln;
end.

readln;
end.