напишите комментарии на каждую строкуprogram line; uses graphabc,crt; var x0,y0,x,y: integer; beginx0: =300; y: =400; x: =20; writeln('введите координату точки y0'); readln(y0); //задаешь значение переменной y0; moveto(x0,y0); //перемещает текущий указатель в точку х0 у0 while x< 610 do begin line(x0,y0,x,y); //рисует линию по координатам x: =x+10; //увеличивает х на 10 что бы дальше рисовать линии по пикселям.end; end.укажите тип цикла используемое в программе цикл с условием
напишите комментарии на каждую строкуprogram line; uses graphabc,crt; var x0,y0,x,y: integer; beginx0: =300; y: =400; x: =20; writeln('введите координату точки y0'); readln(y0); //задаешь значение переменной y0; moveto(x0,y0); //перемещает текущий указатель в точку х0 у0 while x< 610 do begin line(x0,y0,x,y); //рисует линию по координатам x: =x+10; //увеличивает х на 10 что бы дальше рисовать линии по пикселям.end; end.укажите тип цикла используемое в программе цикл с условием