Из текстового режима перейти в графический

procedure risunok;
begin
circle(300+x,205+y,5);
FloodFill(300+x,205+y,clblack);
line(300,205+u,300+x,205+y);
end;
procedure pravoL;
begin
for w:=150 to 210 do
begin
if keypressed then exit;
begin
u:=round(a*sin(W+20*Pi/180));
end;
x:=round(L*sin(W*Pi/180));
y:=round(U+L*cos(W*Pi/180));

risunok;


delay(40);

ClearWindow(Clwhite);



end;
end;
procedure pravoL1;
begin
for w:=210 downto 150 do
begin
if keypressed then exit;
u:=round(a*sin(W+150*Pi/180));
x:=round(L*sin(W*Pi/180));
y:=round(U+L*cos(W*Pi/180));

risunok;


delay(40);
ClearWindow(Clwhite);



end;
end;




begin
clrscr;

a:=10;
read(l);


delay(1000);

repeat
pravoL;
pravoL1;


until keypressed;

end.