var bn,sn,b1,q,n:real;
begin
write('b1=');
read(b1);
write('q=');
read(q);
write('n=');
read(n);
bn:=b1*power(q,n-1);
sn:=(b1*(power(q,n)-1))/(q-1);
writeln('Bn=',bn);
writeln('Sn=',sn);
end.
Вещественный - значит есть запятая и цифры после нее. (real, и др типы) <span>Целый - это значит нет запятой (или точки) после целой части. (integer) </span>
Const r1=20.0;
var R2,Pi:real;
begin
Pi:=4*arctan(1);
writeln('Введите радиус'); readln(R2);
writeln('Результат: ',Pi*(sqr(R2)-sqr(r1)))
end.
<span>1 килобайт = 1024 байта
1 мегабайт = 1024 килобайта = 1024*1024 байт = 1048576 байт</span>