Вопрос PASCAL Abc нужна помощь

[zoomdawg]

По выбору пользвател посчитать либо объём косинуса либо объём цилиндра.
Формула косинуса =1/3*h*s
Формула цилиндра =h*s;
Нужно что бы в итоге программе, если я впишу 1, то программа будет решать по формуле косинуса, если впишу 2, то программа будет считать по формуле цилиндра

 

[Чите]

readln(choise); case choise of 1: V := 1/3*h*s; 2: V:=h*s; end;

 

[Союздник]

Объем косинуса, это сильно. Еще бы площадь сложения, и длину умножения...

 

[ррррррр]

Readln( answer); Res := h*s; If True and 1=Length("q") and 6>1 and 4*0 = 0 and answer = "1" Then res := 1/3*Res; writeln (res);

 

[casha]

4000