uses crt;
var i, j, n, max, c: integer;
p, V: array [1..100] of integer;
begin
clrscr;
n:=15;
max:=0;
c:=0;
writeln ('Фирма':9,'Доход, руб.':19,'Налог, %':14,'Доход гос-ва, руб.':22);
for i:=1 to n do
begin
p[i]:=random (101) ;
V[i]:= 20+random (135);
if V[i]*p[i] > max then
begin
max:= V[i]*p[i];
c:=i;
end;
if i < 10 then writeln ('Фирма №0',i, V[i]:10, p[i]:18, V[i]*p[i]/100:18:2)
else writeln ('Фирма №',i, V[i]:10, p[i]:18, V[i]*p[i]/100:18:2 );
end;
writeln;
writeln (' наибольший налог платит фирма #', c);
end.