Question

изменить программу так чтобы эти линии шли из верхнего левого угла к правому нижнему
program cvet_gamma;
uses graphabc;
var k: integer;
begin
SetWindowSize(1366,768);
ClearWindow(clSilver);
SetPenWidth(5);
for k:=1 to 200 do
begin
SetPenColor(rgb(k*10, k*30, k*50));
Line(200, k*5, 600, k*5);
end;
end.

Answer 1

вот лови кароч. блин дурацкое правило про 20 символов эх(

cb71b80268dd92d8fd6a3658ac92a906.pas