Walten

Program z1;
uses crt,GraphABC;
var karta,R,i,y0,l,g,d,f,e: integer;
A:real;
const c: array[1..10] of real = (17.3,22,22.3,24.6,26,36.1,37.71,40.3,52.8,79.6);
b: array[1..10] of string = ('Нарочь','Освейское','Червоное','Лукомльское','Др ивяты','Выгоновское','Нещедро','Свирь','Снуды','Че рное');
begin
SetWindowSize(1020,980);
karta:=LoadPicture('belarus.jpg');
DrawPicture(karta,10,10,400,350);
setBrushcolor(clBlue);
A:=79.6; R:=round(sqrt(A/pi)); Circle(200,150,R);
A:=52.8; R:=round(sqrt(A/pi)); Circle(280,70,R);
A:=40.3; R:=round(sqrt(A/pi)); Circle(210,320,R);
A:=37.71; R:=round(sqrt(A/pi)); Circle(285,105,R);
A:=36.1; R:=round(sqrt(A/pi)); Circle(250,60,R);
A:=26; R:=round(sqrt(A/pi)); Circle(100,270,R);
A:=24.6; R:=round(sqrt(A/pi)); Circle(200,80,R);
A:=22.3; R:=round(sqrt(A/pi)); Circle(240,180,R);
A:=22; R:=round(sqrt(A/pi)); Circle(250,100,R);
A:=17.3; R:=round(sqrt(A/pi)); Circle(130,280,R);
for i:=1 to 10 do
begin
setbrushcolor(clblue);
setfontcolor(clwhite);
setfontsize(10);
setfontstyle(bsClear);
Textout(-60+60*i,465,b[i]);
end;
For i:=1 to 10 do
begin
setBrushcolor(rgb(random(255),random(255),random(2 55)));
rectangle(-60+60*i,465,60+60*i,360+round(c[i]));
end;
setbrushcolor(clWhite);
for i:=1 to 10 do
y0:=10;
y0:=y0+i*30;
setfontsize(10);
rectangle(500,y0,520,y0+30);
textout(502,y0+5,l[i]);
rectangle(520,y0,630,y0+30);
textout(530,y0+5,g[i]);
rectangle(630,y0,800,y0+30);
textout(640,y0+5,d[i]);
rectangle(800,y0,920,y0+30);
textout(810,y0+5,n[i]);
rectangle(920,y0,1030,y0+30);
textout(930,y0+5,y[i]);
rectangle(920,y0,960,y0+30);
textout(930,y0+5,y[i]);
rectangle(980,y0,1040,y0+30);
textout(990,y0+5,f[i]);
rectangle(1040,y0,1090,y0+30);
textout(1050,y0+5,e[i]);
end;
end.