дана вышина и радиус цилиндра. найти площадь боковой поверхности, полную площадь.

Вариант с округлением площадей, если не нужно, просто уберите 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.