===== PascalABC.NET =====
begin
var R := ReadReal('Введите радиус цилиндра:');
var h := ReadReal('Введите высоту цилиндра:');
var S := 2 * Pi * R * h;
Writeln('Площадь боковой поверхности цилиндра ', S:0:5)
end.
В фразе "<span>Семь раз отмерь, один раз отрежь!" 33 символа.
33*16 = 528 бит или 66 байт
</span>
Может быть этот сайт вам как-то поможет
http://pas1.ru/taskcycle