power(а,b) в pascalABC это возведение числа a в степень b Заменить можно на exp(b*ln(a)) то есть это a^b В задаче 74 должны получить массив целых (поэтому лучше замена exp(b*ln(a)) :2:0 B turbo надо добавить первую строку uses crt; и предпоследнюю строку readkey; (задержка) То есть программа в таком виде 1 uses crt; 2 var i: integer; 3 begin 4 for i:=1 to 20 do 5 writeln( i,' ', exp(i*ln(2)):2:0); 6 readkey; 7 end. (Семь строчек)