Составить программу в паскале с движущимся шариком по окружности.

uses crt, graph;

var grdr, grmd,i,j,g: integer;

begin

grdr: =detect;

initgraph(grdr, grmd,’c: \bp\bgi’);

setbkcolor(lightgray);

g: =getbkcolor;

i: =20; j: =20;

begin

setcolor(red);

setfillstyle(1,red);

fillellipse(i,j,5,5);

delay(3000);

setfillstyle(1,g);

fillellipse(i,j,5,5);

i: =i+random(3);

j: =j+random(2);

end;

readln;

end.

program xxx;

    var a, b, c, p, s : real;

begin

    wtiteln('введите катет а-');

    read(a);

    wtiteln('введите катет b-');

    read(b);

    s: =(a*b)/2;

    writeln('площадь треугольника =', s);

    c: =sqrt(sqr(a)+sqr(b));

    p: = a+ b + c;

    writeln('периметр треугольника =', p);    

end.

program p;

vara,b,c,i,j,n : integer;

beginwriteln('введите три числа'); readln(a,b,c);

if a> b then if a> c then writeln(a,c,b) else writeln(c,a,b) else if c> b then writeln(a,b,c) else writeln(b,c,a);  

readln; end.