Заданный радиус основания и высоты цилиндра ю вычислить площадь основания и объем

Question

Заданный радиус основания и высоты цилиндра ю вычислить площадь основания и объем

Answer 1

var
r,h,s,v:integer;
begin
readln(r,h);
s:=round(Pi*sqr(r));
v:=s*h;
writeln('S=',s);
write('V=',v);
end.