Выделить первую ячейку и удерживая нажатой клавишу CTRL можно выделить и другие ячейки и удалить
6папок т.к в 1 папке содержится 2-3 бита
<span><span>var
a,s: real;
n,i: byte;
begin
write('Введите вещественное a: ');
readln(a);
repeat
write('Введите целое n (n>0): ');
readln(n);
until (n>0);
s:=1;
for i:=1 to n do
begin
s:=s*a;
writeln(a,' в степени ',i,' = ',s);
end;
readln; //в pascalAbc.net - не обязательно
end.</span></span>