var

 a, b, c, tip: integer;

 S, v, h, r: real;

begin

 Writeln('Введите тип басейна 1 - прямоугольный, 2 - круглый: ');

 Readln(tip);

 if tip = 1 then

 begin

   Writeln('Введите Длинну, Ширину, Высоту бассейна: ');

   Readln(a, b, c);

   Writeln('Вам понадобиться: ', (a * b * c), 'м3. воды');

 end

 else

   Writeln('Введите Высоту и Радиус: ');

 Read(h, r);

 S := 3.14 * (r * r);

 Writeln(S);

 V := S * h;

 Writeln('Вам понадобиться: ', v, 'м3. воды');

 end.