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

Question

Паскаль:
Составить функцию нахождения объема цилиндра по его радиусу основания r и высоте.
С помощью данной функции вычислить объемы для N цилиндров.

Answer 1

Program qq;
var v,r,h:real;
begin
write('Введите значение r');
readln(r);
write('Введите значение h');
readln(h);
v:=pi*sqr(r)*h;
write('Объем цилиндра =',v:6:2);
end.