Ответы и объяснения

2013-04-16T14:48:09+04:00

var
  i: byte;
begin
  for i := 0 to 10 do writeln(i:5, exp(ln(2)*i):5)
end.