Одномерные массивы.

uses crt;
var kr:array[1..100] of real;
    br:array[1..100] of string;
    n,i:integer;
begin
clrscr;
write('Количество бригад n=');
readln(n);
writeln('Введите данные:');
for i:=1 to n do
 begin
  writeln('Бригада ',i);
  write('  Название: ');readln(br[i]);
  write('  Результат(тонн): ');readln(kr[i]);
 end;
writeln('Не выполнили план в 1 тонну:');
for i:=1 to n do
if kr[i]<1 then writeln(br[i]);
readln
end.

uses crt;
const n=10;
var a:array[1..n] of integer;
    i,j:integer;
begin
clrscr;
writeln('Введите количество забитых мячей от 100 до 200:');
for i:=1 to n do
 begin
  repeat
  write('# ',i,'=');
  readln(a[i]);
  until(a[i] in [100..200]);
 end;
clrscr;
for i:=1 to n do
 begin
  textcolor(i);
  write('Nomer ',i,' ');
  for j:=1 to round(a[i]/10) do write(#219);
  write('  ',a[i]);
  writeln;
 end;
readln
end.