Дай объектам общее имя число буква знак препинания

Дай объектам общее имя число буква знак препинанияответ : символ 

Const maxn = 15; type myarr = array [1..maxn] of longint; var a: myarr; k1, k2, k3, sr, i: longint; begin for i : = 1 to 15 do begin read(a[i]); sr : = sr + a[i]; end; sr : = sr div 15; for i : = 1 to 15 do begin if (a[i] > sr) then inc(k1); if (a[i] = sr) then inc(k2); if (a[i] < sr) then inc(k3); end; writeln('количество элементов, больших среднего арифметического, = ', k1); writeln('количество элементов, равного среднему арифметическому, =  ', k2); writeln('количество элементов, меньших среднего арифметического, =  ', k3); end.

Program praktyka8;

uses graphABC;

begin

setwindowsize(640,480);

setwindowtitle('Відновіть малюнок');

setbrushcolor(clgreen);

rectangle(0,350,640,480);

setbrushcolor(clbrown);

rectangle(70,275,215,415);

line(150,180,70,275);

line(70,275,215,275);

line(215,275,150,180);

floodfill(150,250,clbrown);

circle(150,250,18);

setbrushcolor(clblue);

floodfill(150,250,clblue);

setbrushcolor(clblue);

rectangle(75,315,120,375);

setbrushcolor(clsilver);

rectangle(150,315,200,415);

setpencolor(clyellow);

setbrushcolor(clyellow);

line(25,25,150,75);

line(25,25,145,80);

line(25,25,140,85);

line(25,25,130,95);

line(25,25,125,100);

line(25,25,115,110);

line(25,25,110,115);

line(25,25,100,125);

line(25,25,95,130);

line(25,25,85,135);

line(25,25,80,140);

line(25,25,75,145);

setbrushstyle(bssolid);

circle(25,25,30);

setbrushcolor(clbrown);

setpencolor(clbrown);

rectangle(307,425,317,400);

setbrushcolor(cllime);

setpencolor(clblack);

ellipse(250,150,375,400);

setpencolor(clblack);

rectangle(450,400,465,375);

rectangle(500,400,515,375);

rectangle(425,375,540,365);

end.

Объяснение:

Во многих местах были орфографические ошибки, поэтому и не запускалось.