Прошу сделайте , как можно скорее , записать ** языке Паскаль

Question

Прошу сделайте , как можно скорее , записать на языке Паскаль

---

Answer 1

Var radius, visota, plotnost: integer;
ploshad, obiem, massa: real;
begin

write('Введите радиус = ');
readln(radius);
write('Введите высоту = ');
readln(visota);
write('Введите плотность = ');
readln(plotnost);

ploshad := 3.14 * radius * radius;
obiem := ploshad * visota;
massa := obiem * plotnost;


writeln('Масса = ', massa);
writeln('Объем = ', obiem);
writeln('Площадь = ', ploshad);

end.