const
p = 3.14;
var
L, S:real;
begin
write('L = '); readln(L);
writeln('S = ', sqr (L / (2 * p)) * pi);
end.
утюг-гладить белье
мялка - мять белье.
морозилка - замораживать подукты
печка - разогревать продукты
1024 байт = 1 кб
800 бит = 100 байт
64 бита = 8 байт
0,5 кб = 512 байт