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

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.

Import java.util.*; import java.io.*; import java.lang.*; class program {       public static void main(string[] args) {                         scanner scan = new scanner(system.in);             system.out.print("a = ");             int a = scan.nextint();             system.out.print("b = ");             int b = scan.nextint();             double s = 0;             for(int i = a; i < = b; i++) {                   s+=i*i;             }             system.out.print("s = "+s);       } }

#include < iostream> using namespace std; int main() {       double s = 0;       int n = 0, k = 0, a;       cout < < "k = ",cin > > k;       for(int i = 0; i < k; i++)       {               cout < < "nabor "< < i< < ": ";               s = 0;               n = 0;               cin > > a;               while(a ! = 0)               {                       s+=a;                       n++;                       cin > > a;               }               if (n! =0) cout < < "sr = "< < s/n< < "\n";               else cout < < "na noll delit' nel'zja! \n";       }       return 0; }