Тема Подпрограммы: Составить функцию нахождения объема цилиндра по его радиусу основания r и высоте (Паскаль)

[sanyok996]

это вроде не паскаль

[type_Oleg]

Double это Real
Можешь его написать.

[sanyok996]

Всем спасибо) сделал)
uses crt;
var
V,r,h:real;
i,n:integer;
function L(r,h:real):real;
begin
v:=h*r*r*pi;;
end;
begin
writeln('Введите количество цилиндров = ');
read(n);
for i:=1 to n do
begin
writeln('Введите радиус основания = ');
read(r);
writeln('Введите высоту= ');
read(h);
v:=pi*sqr(R)*h;
writeln('Объём цилиндра = ',V:4);
writeln;
end;
end.

[type_Oleg]

А зачем здесь function L ? Ты же ее не используешь.