Ввести с клавиатуры число линий и построить фигуру

проходили

uses GraphABC;Vary,n:integer;BeginWrite('n = ');ReadLn(n);For y:= 0 to n-1 do    Line(100,300-y*(300 div (n-1)),300,y*(300 div (n-1)));End.