Графика в Турбо Паскале

[Андрей07]

Всем здраствуйте! Помогите, пожалуйста, с решением вот такой задачи, препод уже достал просто...(я не на факультете математики и компьютерных наук обучаюсь, а на фак-те естественных наук, так что моя специальность очень далека от программирования, это я сразу прошу прощение за задачу такую):
Вывести на экран линию, нарисован квадрат, и линия из нижнего левого угла идет в верхний правый(по диагонали), линия должна быть зеленого цвета.
Пожалуйста, очень нужна помощь...

[DomiNick]

Вывести на экран линию, нарисован квадрат, и линия из нижнего левого угла идет в верхний правый(по диагонали), линия должна быть зеленого цвета.

Из нижнего левого угла квадрата..?
А на каком языке программирования это нужно делать?

[Андрей07]

Турбо Паскаль, да из нижнего левого в верхний правый

[Stilet]

Так пойдет?

uses crt,Graph;
const er=100;
var
 c:char;
  grDriver: Integer;
  grMode: Integer;
  x,y:double;a,b,ErrCode,i: integer;
  ang:real;

begin
  grDriver := Detect;
  InitGraph(grDriver, grMode,'');{}
  ErrCode := GraphResult;
  x:=0;
  rectangle(10,10,100,100);
  moveto(100,100);
  setcolor(green);
  lineto(10,10);
  c:=readkey;
  CloseGraph;
end.