5, 4, 2, 3, 1, 6. Складывай всё что в квадратных скобках и умножай на кол-во повторов. Вперед это знак +, назад это -
Чадо-чайка-чаровница-чародейка-часик-часок–другой
Program chik;
var y,x:real;
begin
x:=-11;
while x<10 do
begin
x:=x+1;
if(x<>0)then y:=1/(x*x) else y:=-1;
if(y<>-1)then writeln(y) else writeln('при x=0 нет решений');
end;
end.
Var a, b, c,rez: real;
begin
writeln( 'Введите три числа' );
read ( a, b, c );
rez := ( a + b + c ) / 3
writeln ('ср. знач.=', rez:0:2 );
<span>end.</span>
var i,p,o:integer;
a:array [1..30] of integer;