Про синтаксис сказать ничего не могу, вроде правильно
объем вычислен верно, а при вычислении площади ты вичислил только боковую площадь цилиндра, и забыл про круглые торцы, их тоже надо прибавить, т.е. S:=2*pi*r*h+2*pi*r*r
1.
const k=15;
var a:array [1..k] of integer;
i:integer;
begin
for i:=1 to k do
a[i]:=random(50);
writeln (a)
end.
2.
const k=15;
var a:array [1..k] of integer;
i:integer;
begin
for i:=1 to k do
begin
a[i]:=i*2;
writeln (a[i])
end
end.
Обьект, природный для многих целей, выполняющий разнообразные функции, называют универсальным.