Напишите комментарии на каждую строку
Program line;
uses graphABC,CRT;
Var x0,y0,x,y:Integer;
Begin
X0:=300;
y:=400;
x:=20;
Writeln('Введите координату точки Y0');
Readln(Y0);_________________________________________________________
Moveto(x0,y0);______________________________________________________
while x<610 Do
Begin
line(x0,y0,x,y);______________________________________________________
x:=x+10;___________________________________________________________
End;
End.
Укажите тип цикла используемое в программе _________________