Составить программу вычисления объема цилиндра и конуса, которые имеют одинаковую высоту Н и одинаковый радиус основания R — Pascal(Паскаль)

program _1_5;

uses crt;

var
  radius, vysota: real;

begin
  ClrScr;
  TextColor(14);
  Writeln('Вычисление объема цилиндра.');
  Writeln('Введите исходные данные:');
  write('радиус основания -> ');
  readln(radius);
  write('высота цилиндра -> ');
  readln(vysota);
  Writeln('Объем цилиндра: ', (2 * pi * radius * radius * vysota):7:2);
  Repeat
  Until KeyPressed;

end.