графика в паскале..

[Екатерина18]

На столбиковой диаграмме выведите в виде прямоугольников различных цветов все три значения, введенные пользователем, а среднее арифметическое этих чисел – прямоугольником красного цвета.

program ekat8;
uses crt,graph,
sr,z1,z2,z3,gd,gm:integer;
y2:integer;

procedure zapolnenie;
begin
clrscr;
writeln ('vvedite znachenie 1');
read (z1);
clrscr;
writeln ('vvedite znachenie 2');
read (z2);
clrscr;
writeln ('vvedite znachenie 3');
read (z3);
sr:=round((z1+z2+z3)/3);end;

procedure xystroy; begin;
SetBkColor (white);
setlinestyle (0,0,normwidth);
setcolor (brown);
line (20,430,620,430);
setcolor (red);
outtextxy (20,450,'znachenie 1');
y2:=430-z1;
bar (20,430,169,y2);
setcolor (blue);
outtextxy (170,450,'znachenie 2');
y2:=430-z2;
bar (170,430,319,y2);
setcolor (Green);
outtextxy (320,450,'znachenie 3');
y2:=430-z3;
bar (320,430,469,y2);
setcolor (Gray);
outtextxy (470,450,'srednee arifmeti4eskoe');
y2:=430-sr;
bar (470,430,620,y2);
end;

begin
zapolnenie;
initgraph (gd,gm,'');
xystroy;
readln;end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

пишет ошибку,не знаю в чем она заключается..

[Vanta11a]

А написать текст ошибки религия не позволяет?

[rubius2008]

наверно вместо

uses crt,graph,

надо

uses crt,graph;

пока только это заметил. а так согласен с предыдущим постом. напишите ошибку и на какой строчке она показывается проще будет искать.

[Екатерина18]

ошибка в АВС 'Модуль graph не найден' во второй строчке.

[Oleg Osipov]

если это в Pascal ABC то там модули имеют другое название
например GraphABC и тд