Диаграмма

[Викдон]

е) построение диаграммы по одному из полей записи. Может кто-нибудь знает что представляет из себя эта диаграмма?

[puporev]

Может что-то типа этого?

uses crt;
type Tcol=record
            x,col:integer;
            end;
var sp:array[1..5]of Tcol;
    i,j:integer;
begin
clrscr;
for i:=1 to 5 do
   begin
    sp[i].x:=i;
    sp[i].col:=random(5)+5;
   end;
for i:=1 to 5 do
   begin
    write(sp[i].x,' ');
    for j:=1 to sp[i].col do
    write(#220);
    writeln;
   end;
readln
end.