Помогите Пожалуйста с Задачей!!!!

[Sazary]

А как подключить графический модуль??

Вы его уже подключили:

Uses Graph;

[Sasuke-sama]

Вот так будет выглядеть:
Program rt;
Uses Graph;
Var
grDriver:Integer;
grMode:Integer;
ErrCode:Integer;
Res:Integer;
Begin
grDriver:=detect;
InitGraph(grDriver, grMode,C:\Pascal\);
ErrCode:=GraphResult;
If ErrCode = 0 then
procedure kvadr(x,y:integer; a:integer);
begin
moveto(x,y);
linerel(a,0);
linerel(0,a);
linerel(-a,0);
linerel(0,-a);
end;
kvadr(1,1,5);
End.
Ну или просто если тут опять ошибка....хотя я в этом уверен)))) Напиши как правильно))) я полный дундук)))

[Sasuke-sama]

Не, я понял это)) а вот если я указываю путь в котором он лежит, но пишет что там его нет....что делать??

[Sazary]

Sasuke-sama
Во-первых, код заключайте в теги CODE ("#" на панели в окне редактирования). Иначе читать то, что выкладываете крайне трудно.
Во-вторых, я уже сказал, что процедуру нужно описывать вне тела основной программы. А вы ее опять пишете внутри.

И в-третьих, где выход из графического режима? Добавьте в конец:

readln;
closegraph;

[__STDC__]

у вас программа скомпилировалась с такой строчкой

InitGraph(grDriver, grMode,C:\Pascal\);

? оО

[Sasuke-sama]

Сообщение от __STDC__

у вас программа скомпилировалась с такой строчкой

InitGraph(grDriver, grMode,C:\Pascal\);

? оО

Не компилировалась!

[__STDC__]

тогда послушайте, что вам Sazary говорит.. или вы упорно не хотите понимать этого?

[Sasuke-sama]

Sazary
Тода покажите как и куда его вписать)))

[Sasuke-sama]

__STDC__
Просто в паскале я полный ДУБ))))))

[Sazary]

Sasuke-sama, для добавления к предыдущему сообщению пользуйтесь кнопкой "ПРАВКА".

Сообщение от Sasuke-sama

Просто в паскале я полный ДУБ))))))

Поверьте, это нисколько не красит.
Выполните данные вам рекомендации.

Можете также посмотреть примеры, например, тут:
http://programmersforum.ru/showthread.php?t=47838
http://programmersforum.ru/showthread.php?t=48685