Постройте концентрические окружности различных цветов, расширяющиеся от центра экрана

uses crt;
var
a,b,k,bb,y:real;
begin clrscr;
write('a=');
read(a);
write('b=');
read(b);
write('K=');
read(k);
writeln;
if k<>0 then
 begin
  bb:=(a-sqr(b))/sqr(k);
  y:=sqr(bb)*bb-sqrt(abs(b-k));
  writeln('B=',bb:2:2);
  writeln('Y=',y:2:2);
 end
else writeln('DELENIE NA 0!!!');
readkey;
end.

uses crt;
var
a,b,c,m,s,f:real;
begin clrscr;
write('a=');
read(a);
write('b=');
read(b);
write('c=');
read(c);
writeln;
if (a<>0)or(b<>0)or(c<>0) then
 begin
  m:=(sqr(a)*a-sqr(c))*(a-b);
  if (m>0)and(m<5) then s:=m/(a*c)
  else s:=(a-c)*m;
  if s<m then f:=(a*b*s)/c;
  if s>m then f:=s-m;
  writeln('M=',m:2:2);
  writeln('S=',s:2:2);
  writeln('f(s)=',f:2:2);
 end
else writeln('DELENIE NA 0!!!');
readkey;
end.

uses crt;
var
c:array[1..15] of integer;
i,sum:integer;
begin clrscr;
for i:=1 to 15 do
 begin
  write('c[',i,']=');
  read(c[i]);
 end;
writeln;
sum:=0;
for i:=1 to 15 do
sum:=sum+c[i];
writeln('summa=',sum);
for i:=1 to 15 do
if i mod 2=0 then c[i]:=sum;
for i:=1 to 15 do
write(c[i],'  ');
readkey;
end.

uses crt;
const n=5;
      m=6;
var a:array[1..n,1..m] of integer;
    b,c:array[1..n] of integer;
    i,j,x:integer;
begin
ClrScr;
Randomize;
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random(20)-10;
    Write(a[i,j]:4);
    b[i]:=a[i,3];
    c[i]:=a[i,5];
   end;
  Writeln;
 end;
Writeln;
Writeln('A');
for i:=1 to n do
 Write(b[i]:4);
Writeln;
for i:=1 to n div 2 do
 begin
  x:=c[i];
  c[i]:=c[n+1-i];
  c[n+1-i]:=x;
 end;
Writeln('B');
for i:=1 to n do
 Write(c[i]:4);
Readln;
end.