Const
  Pi=3.1415926598;
var
  c:integer;
  r,a,b,h:real;
begin
   Writeln(Введите код вычисляемой величины: );
   Writeln(1 - длина окружности);
   Writeln(2 - площадь круга);
   Writeln(3 - объем цилиндра);
   Writeln(4 - объем параллелепипеда);
   Write(-gt; ); Read(c);
   case c of
   1: begin
        Write(Введите радиус окружности: ); Read(r);
        Writeln(Длина окружности равна ,2*Pi*r)
      end;
   2: begin
        Write(Введите радиус круга: ); Read(r);
        Writeln(Площадь круга равна ,Pi*r*r)
      end;
   3: begin
        Write(Введите радиус и высоту цилиндра: ); Read(r,h);
        Writeln(Объем цилиндра равен ,Pi*r*r*h)
      end;
   4: begin
        Write(Введите длину, ширину и высоту параллелепипеда: ); Read(a,b,h);
        Writeln(Объем параллелепипеда равен ,a*b*h)
      end
   end
end.

Пример работы
Введите код вычисляемой величины:
1 - длина окружности
2 - площадь круга
3 - объем цилиндра
4 - объем параллелепипеда
-gt; 3
Введите радиус и высоту цилиндра: 5 18.3
Объем цилиндра равен 1437.2786418585