Написать программу, которая выводит на экран изображение работающего светофора - Pascal - Ответ 649796

uses crt;
Var a,b:array[1..4] of byte;
    x,y:string;
    i,j,k,mx,h:integer;
    msh:real;
begin
clrscr;
writeln('Введите количество каждой  оценки от 5 до 2:');
write('Пятерок - ');readln(a[1]);
write('Четверок - ');readln(a[2]);
write('Троек - ');readln(a[3]);
write('Двоек - ');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]*100/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.