6. составьте программу вычисления площади конуса. s=1/3π r2h

var r,h: real;

begin

  read(r,h);

  writeln('s=',pi*r*2*h/3);

end.

//pascalabc.net 3.1 сборка 1219 begin       var a : = arrrandominteger(readinteger('n ='), 0, 10);       a.println;       a.transform(x -> (x = 0) ? 1 : x);       a.println; end. правка вашего решения const       n = 5; var       x: array[1..n] of integer;       i, h: integer; begin       for i : = 1 to n do       begin               readln(x[i]);               if (x[i] = 0) then x[i] : = 1;       end;             for i : = 1 to n do               write(x[i], ' ');       readln; end.

1. короткий вариант // pascalabc.net 3.1, сборка 1230 от 27.04.2016 begin   var a: =1.to(10).select(x-> x*x*x).toarray; a.println;   writeln('s=',a[0]+a[4]+a[9]) end. результат 1 8 27 64 125 216 343 512 729 1000 s=1126 2. школьный вариант // pascalabc.net 3.1, сборка 1230 от 27.04.2016 var   i: integer;   a: array[1..10] of integer; begin   for i: =1 to 10 do begin       a[i]: =i*i*i;       write(a[i],' ')       end;   writeln;   writeln('s=',a[1]+a[5]+a[10]) end.