в зависимости от введенного числа 1,2,3 программа должна вычислять длину окружности;площадь круга;объём цилиндра.
C=2πR
S=πR2
V=πR2H

var k,r,h:integer;beginwriteln('1 - длина окружности; 2 - площадь круга; 3 - объём цилиндра');write('k = ');readln(k);case k of 1,2: begin write('R = '); readln(r); end; 3: begin write('R, h: '); readln(r,h); end;end;case k of 1: writeln('C = ',2*pi*r:5:3); 2: writeln('S = ',pi*r*r:5:3); 3: writeln('V = ',pi*r*r*h);else writeln('Ошибка ввода');end;end.Пример:1 - длина окружности; 2 - площадь круга; 3 - объём цилиндраk = 2R = 5S = 78.540