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

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.