program raam;
uses graph, crt;
var d, m,x, y, i, k,l, kiirus, kiirusl: integer;

begin
Initgraph(d, m, '');
line(0, 0, getmaxx, 0);
line(getmaxx, 0, getmaxx, getmaxy);
line(getmaxx, getmaxy, 0, getmaxy);
line(0, getmaxy,0,0);

begin
k:=100;
l:=100;
kiirus:=1;
kiirusl:=1;
repeat
if k<27 then kiirus:=abs(kiirus);
if k>getmaxx-27 then kiirus:=-abs(kiirus);
if l<27 then kiirusl:=abs(kiirusl);
if l>getmaxy-27 then kiirusl:=-abs(kiirusl);
k:=k+kiirus;
l:=l+kiirusl;
setcolor(red);
circle(k, l,25);
delay(10);
setcolor(black);
circle(k, l, 25);
{x:=x+5;}
{y:=y+1;}
until keypressed;
readln;
closegraph;
end;
end.