Определите исходные данные и объявите переменные, необходимые для вычисления объема цилиндра напишите программу вычисления объема цилиндра по заданным исходным значениям

// PascalABC.NET 3.2, сборка 1488 от 21.06.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var (r,h):=ReadReal2('Введите радиус и высоту цилиндра:');
  Writeln('Объём цилиндра равен ',Pi*r*r*h)
end.

Пример
Введите радиус и высоту цилиндра: 15.6 8.72
Объём цилиндра равен 6666.77125690878

S(цилиндра)=Pi(число Пи)*R(радиус цилиндра)*R*h(высота цилиндра)
Pascal
var r,h:integer;
begin
read(r,h);
write(3.1415*r*r*h);
end.
Если хотите на другом языке, напишите