Цилиндр көлемін шығару

 

program kolem;

var r, h, v: real;

begin

writeln (‘Цилиндр көлемін шығару’);

writeln (‘Берілгендерді енгіз(см ) ->’);

write (‘радиус’);

readln (r);

write (‘цилиндр биіктігі(см) ->’);

readln (h);

v:=2*3,14*r*r*h;

writeln (‘Цилиндр көлемі’, v:6:2,’ см.куб.’ );

writeln;

readln;

end.

            Артқа