Дана высота и радиус цилиндра. найти площадь боковой поверхности, полную площадь. s=2пrh. sn=s6+2пr

Вариант с округлением площадей, если не нужно, просто уберите round в обоих строках.

uses crt;
var r,h:real;
begin
writeln('Введите через пробел радиус и высоту цилиндра.');
readln(r,h);
writeln('Площадь боковой поверхности равна ', round(2*pi*r*h));
writeln('Площадь полной поверхности равна ', round(2*pi*r*(h+r)));
end.