Создайте программу,чтобы найти объём цилиндра. ✨✨✨

Вот программа, если площадь основания дана.
program ;
var a,b: real;
begin  writeln('Введите площадь основания цилиндра.'); readln(a); writeln('Введите высоту цилиндра.'); readln(b);  writeln('Объем цилиндра равен ', a*b, '.'); end.

Если площадь основания не дана, а дан радиус основания цилиндра:

program ;
var a,b,c: real;
begin  writeln('Введите радиус основания цилиндра.'); readln(a); writeln('Введите высоту цилиндра.'); readln(b);  writeln('Объем цилиндра равен ', Pi*sqr(a)*b, '.'); end.