// PascalABC.NET 3.0, сборка 1144 от 16.01.2016
begin
ArrRandom(ReadInteger('n='),-15,25).Println
end.
<u><em>Тестовое решение:</em></u>
n= 15
-9 4 2 0 23 -1 9 -9 19 5 8 16 -9 16 12
Var r,v:real;const p=3.14;beginwriteln('Введите радиус=');read(r);v:=4/3*p*(power(r,3));if (r=3) then writeln('Обьем окружности=',v:0:1)elsewriteln('Введите другой радиус');end.
1.
var
a, b, c, s, p: integer;
begin
readln(a, b, c);
s:=a+b+c;
p:=a*b*c;
writeln(a, '+', b, '+', c, '=', s);
writeln(a, '*', b, '*', c, '=', p);
<span>end.
2.
</span>var
a, b, c, s, p: integer;
sr: real;
begin
readln(a, b, c);
s:=a+b+c;
p:=a*b*c;
sr := s/3;
writeln(a, '+', b, '+', c, '=', s);
writeln(a, '*', b, '*', c, '=', p);
writeln('(', a, '+', b, '+', c, ')/3=', sr);
<span>end.</span>