Program n1;
var n,i,k: integer;
sum,a: real;
begin
sum:=0;
k:=0;
write('n=');
readln(n);
for i:=1 to n do
begin
readln(a);
if a<0 then begin
sum:=sum+a;
k:=k+1;
end;
end;
writeln(sum/k);
end.
Program test;
var a,b,c:integer;
begin
readIn(a);
readIn(b);
ReadIn(c);
writeIn(a+b/c+c/a*b);
end.
вроде так
PRINT "Введите r:"
INPUT r
PRINT "Введите h:"
INPUT h
pi=3.14159
v1=pi*r*r*h
v2=1/3*pi*r*r*h
PRINT "Объем цилиндра v1:"
PRINT v1
PRINT "Объем конуса v2:"
<span>PRINT v2</span>
Таблица Истинности в прилагающем файле
1) "Дарья" (первая согласная и последняя гласная).
2) Считаем: 2, 4, 4, нужно ещё одна 2 => вариант 4) C1/3.