Задача на процедуры и функции

[Dimabara]

Для каждого варианта в обязательном порядке предусмотреть использование процедуры и функции. Процедура и функция должны находиться в одном файле.
Прямоугольный ящик заполнен цилиндрическими гвоздями. Определить процент заполнения ящика металлом. Для упрощения задачи считать, что гвозди не имеют острого конца и шляпки.

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils, math;
 var V,V1, S, a, b, h, r, h1: Real;
 const
 Pi=3.14;
 procedure Bara(c:Real);
 begin
  V1:=Pi*sqrt(r)*h;  //îáúåì ãâîçäÿ
  S:=a*b;   //  ïëîùàäü ÿùèêà
  V:=S*h1;   //  îáúåì ÿùèêà
  c:=0.01*V1/V //
 end;

begin
  Writeln('vvesti radius i visotu gvozdya');
  read(r,h);
  Writeln('vvesti storoni yashika i visotu',a,b,h1:6:3);
  read(a,b,h1);
  Writeln('procent');
  Bara(c);


end.

вот мои попытки, на этом застопорился, не знаю, что с кодом и где моя ошибка

[Mad_Cat]

  V1:=Pi*sqr(r)*h;

[Stilet]

А почему ты решил что с кодом что-то не то?
Результат выдает правильный?

[Dimabara]

[Error] Project1.dpr(24): Undeclared identifier: 'c'
[Hint] Project1.dpr(15): Value assigned to 'c' never used
выбивает ошибки

[Dimabara]

а работает только эта часть программы
begin
Writeln('vvesti radius i visotu gvozdya');
read(r,h);
Writeln('vvesti storoni yashika i visotu',a,b,h1:6:3);
read(a,b,h1);
Writeln('procent');
Bara(c);


end.

[compres]

переменная с не обьявлена

[Mad_Cat]

Дык "c" выведи в процедуре то

procedure Bara(c:Real);
 begin
  V1:=Pi*sqrt(r)*h;  //îáúåì ãâîçäÿ
  S:=a*b;   //  ïëîùàäü ÿùèêà
  V:=S*h1;   //  îáúåì ÿùèêà
  c:=0.01*V1/V //
 Writeln(c); 
end;

[Dimabara]

[Error] Project1.dpr(18): Missing operator or semicolon
[Error] Project1.dpr(27): Undeclared identifier: 'c'
ввожу, выбивает эти ошибки

[compres]

program Project1;
 {$APPTYPE CONSOLE}
uses
  SysUtils;
var V,V1,S,r,h,a,b,h1,o : Real;
const Pi=3.14;
 procedure Bara(var r,h:real);
  begin
   Writeln('vvesti radius i visotu gvozdya');
   read(r,h);
   Writeln('vvesti storoni yashika i visotu',a,b,h1);
   read(a,b,h1);
   Writeln('procent');
   V1:=Pi*sqrt(r)*h;
   S:=a*b;
   V:=S*h1;
   Writeln (0.01*V1/V);
  end;
begin
  Bara(r,h);
end.

[Sciv]

И кстати говоря, Пи еще со времен паскаля константой Pi идет, зачем переопределять?