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

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.