нарисовать в паскале линию

[Proskurina]

нарисовать в паскале линию

[whatever]

program line;
begin
  writeln('________________________________________________');
  readln;
end.

P.S. Люди вообще понимают, что здесь не гугл?

[BDA]

Uses Crt, Graph;
Var Gd, Gm : Integer;
Begin
    Gd:=Detect;
    InitGraph(Gd, Gm, '');
    If GraphResult <> grOk Then Halt(1);
    Line(0, 0, 200, 200);
    ReadLn;
    CloseGraph;
End.

whatever Скажем так, не все