В зависимости от введённого символа L, S, V программа должна вычислять длину окружности; площадь круга; объём цилиндра.

Составить программу на паскале.

var a:string;

begin

write ('введите букву') ;

readln (a) ;

case a of

'L':write ('L=2*pi*r') ; / / формула длинны окружности

'S':write ('S=pi*r*r) ; / / формула площади круга

'V':write ('V'=pi*r*r*h) ; / / формула объёма цилиндра

else write (''буква должна быть L, S или V) ;

end;

end.

если формула гдето неверная то сори