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.
Посмотри во вложенном файле, удачи!!!!!
Напишу так алгоритм / ответ
x:=1 / 1
y:=3∗x
/ 3
y:=y+3 / 6
y:=y∗x / 6
y:=y+4 / 10
y:=y∗x / 10
y:=y+5 / 15
Надеюсь мое объяснение вам помогло. Буду рад если вы отметите мое решение как лучшее