Напишите программу, вычисляющую объем цилиндра

Var S, Sc, pi, r, h : real;

begin

pi : = 3.14;

write ('Введите радиус круга, лежащего в основании цилиндра: ') ;

readln (r) ;

S : = pi * r * r;

write ('Введите высоту цилиндра: ') ;

readln (h) ;

Sc : = h * S;

write ('Площадь круга равна ', Sc : 0 : 2) ;

end.