гистограмма

uses crt;
Var a,b:array[1..4] of byte;
    x,y:string;
    i,j,k,mx,h:integer;
    msh:real;
begin
clrscr;
writeln('оценки :');
write('5- '); readln(a[1]);
write('4- '); readln(a[2]);
write('3- '); readln(a[3]);
write('2- '); readln(a[4]);
k:=0;
for i:=1 to 4 do
k:=k+a[i];
for i:=1 to 4 do
b[i]:=round(a[i]*120/k);
clrscr;
gotoxy(1,25);{низ экрана}
for i:=1 to 4 do
 begin
  gotoxy(i*6,wherey);{через 3 позиции}
  textcolor(10+i);
  write(6-i);{выводим оценки}
 end;
mx:=0;{найдем максимальное значение}
for i:=1 to 4 do
if b[i]>mx then mx:=b[i];
msh:=20/mx;{вертикальный масштаб}
for i:=1 to 4 do
 begin
  h:=i*6;{горизонтальный масштаб}
  for j:=24 downto 24-round(b[i]*msh) do
   begin
    gotoxy(h,j);{идем вверх}
    textcolor(10+i);
    write(#219);{рисуем квадратики}
   end;
  gotoxy(h,wherey-1);{на 1 вверх}
  textcolor(10+i);
  write(b[i],'%');{выводим значение}
 end;
readln;
end.

uses crt;
Var a,b:array[1..4] of byte;
    x,y:string;
    i,j,k,mx,h:integer;
    msh:real;
begin
textbackground(0);
textcolor(15);
clrscr;
writeln('оценки :');
write('5- '); readln(a[1]);
write('4- '); readln(a[2]);
write('3- '); readln(a[3]);
write('2- '); readln(a[4]);
k:=0;
for i:=1 to 4 do
k:=k+a[i];
for i:=1 to 4 do
b[i]:=round(a[i]*120/k);
clrscr;
mx:=0;{найдем максимальное значение}
for i:=1 to 4 do
if b[i]>mx then mx:=b[i];
msh:=20/mx;{вертикальный масштаб}
for i:=1 to 4 do
 begin
  h:=i*10;{горизонтальный масштаб}
  for j:=24 downto 24-round(b[i]*msh) do
   begin
    textcolor(10+i);
    gotoxy(h,j);{идем вверх}
    for k:=1 to 5 do write(#219);{рисуем квадратики}
    end;
  gotoxy(h+1,wherey-1);{на 1 вверх}
  textcolor(10+i);
  write(b[i],'%');{выводим значение}
 end;
h:=2;
for k:=1 to 4 do
 begin
  textcolor(10+k);
  for i:=h to h+2 do
  for j:=1 to 5 do
   begin
    gotoXY(50+j,i);
    write(#219);
   end;
  gotoXY(57,i-1);
  write(6-k);
  h:=h+4;
 end;
gotoXY(80,25);
readln
end.