Var n,a:integer;
x,st:real;
begin
write('введите степень n ==> ');
readln(n);
write('введите вещественное число x ==> ');
<span>readln(x);
st:=x;
</span>for a:=1 to n-1 do begin
st:=x*st;
end;
writeln('степень ',n,' числа ',x,' = ',st);
end.
DIM X(10)
RANDOMIZE TIMER
FOR I = 1 TO 10
X(I) = INT(RND(1) * 20) + 1
PRINT X(I); " ";
NEXT I
PRINT
INPUT "Введите число"; K
P = 1
FOR I = 1 TO 10
IF X(I) MOD K = 0 THEN P = P * X(I)
NEXT I
<span>IF P = 1 THEN PRINT "Кратных нет" ELSE PRINT "P ="; P</span>
в одном гигабайте 1048576 кб. соответственно в 80гб х 1048676 = 83886080 кб.