program mss;uses crt;var v,m,h,r:real;beginclrscr;writeln('Введите радиус');readln(r);writeln('Введите высоту');readln(h);v:= 3.14*sqr(r)*h;m:= 1200*v;writeln(' ',m:2:2,' кг');readln;end.
program mss;
uses crt;
var v,m,h,r:real;
begin
clrscr;
writeln('Введите радиус');
readln(r);
writeln('Введите высоту');
readln(h);
v:= 3.14*sqr(r)*h;
m:= 1200*v;
writeln(' ',m:2:2,' кг');
readln;
end.