Uses GraphABC;
Var A:array of point;
Begin
A:=new point[3];
Brush.Color:=clGreen;
A[0]:=(Window.Width div 2,170);
A[1]:=(Window.Width div 2 +80,230);
A[2]:=(Window.Width div 2 -80,230);
Polygon(A);
A[0]:=(Window.Width div 2,120);
A[1]:=(Window.Width div 2 +50,180);
A[2]:=(Window.Width div 2 -50,180);
Polygon(A);
A[0]:=(Window.Width div 2,90);
A[1]:=(Window.Width div 2 +30,130);
A[2]:=(Window.Width div 2 -30,130);
Polygon(A);
Brush.Color := clBrown;
FillRect(A[0].X-10,230,A[0].X+10,250);
End.
Может быть это? <span>pascal: </span>
<span>var a: array [1..20] of integer; </span>
<span>i, k: integer; </span>
<span>s: real; </span>
<span>begin </span>
<span>// заполняем массив c клавиатуры </span>
<span>for i:=1 to 20 do </span>
<span>readln(ar); </span>
<span>//считаем среднеариф-е </span>
<span>s := 0; </span>
<span>k := 0; </span>
<span>for i:=1 to 20 do </span>
<span>if a >=0 then begin </span>
<span>s := s + a; </span>
<span>k := k + 1; </span>
<span>end; </span>
<span>writeln('среднее: ', s/k); </span>
<span>end.</span>
Источник : книга
Приёмник: дети
А B C A V B ^ C
1 0 1 1
1 1 0 0
1 1 1 1
0 1 1 1
0 1 0 1
0 0 0 0
<span><span>2 : if ((year mod 4) = 0) and ((year mod 400) <> 0) then</span><span> DneyVMecyace := 29</span><span>
else</span><span>
DneyVMecyace := <span>28
вот
</span></span></span>