Ответ:
program Calc;
var
a, b: Double;
begin
Write ('A, B = ');
ReadLn (a, b);
if (a <> 0) and (b <> 0) then
WriteLn ('Результат = ', Sqrt (a * b) :20 :20)
else
WriteLn ('Деление на 0');
ReadLn;
end.
var s:string;
begin
readln(s);
writeln(copy(s,2,length(s)-2));
end.
12. З2*31 (лагорифм по основанию 2 от 65536)=15872бита.
64=2^6
6*512*256=786432 бит = 96 Кбайт