uses Math;
var i,n:integer;
begin
write('Введите число N: ');
readln(n);
for i:=1 to n do
write(power(2,i):0:0,' ');
readln
end.
Писал на скорую руку, так что, программа немного кривая, доработай чуть-чуть:
var a, b, c, i, n, g:integer;
mass: array[1..100000] of integer;
begin
readln(n);
writeln('Введите числа ');
for i:=1 to n do
begin
read(mass[i]);
if mass[i]>100 then b:=b+1;
if mass[i]>100 then g:=mass[i];
write(g, ' ');
end;
writeln('Всего чисел больших ста ', b);
end.
Слово Александр занимает 72 бит
var a: real;
begin
readln(a);
writeln((2 * a * a * a + 8)/(3 * a));
end.