program Yana;
var  r, h, s: real; 
begin 
writeln ('Вычисление площади поверхности цилиндра'); 
writeln ('Введите исходные данные:'); 
write ('радиус основания цилиндра (см) ?>'); 
readln (r); 
write ('высота цилиндра (см) ->'); 
readln (h); 
s:=2*pi*r*(h+r);
writeln; 
writeln ('Площадь поверхности цилиндра ',s:2:1,'кв.см.');
 readln; 
end.