Var a,b:real;
i,d:integer;
begin
a:=0;
b:=0;
d:=1;
for i:=1 to 30 do begin
a:=a+100;
b:=b+d;
d:=d*2;
end;
b:=b/100;
if a>b then writeln('Богач отдал больше') else writeln('Бедный отдал больше');
end.
<span>Компьютер
Шестнадцатеричный код:<span>0E2C2A0E2E2E0E2E2C0E2E2F0E2F2C0E2F2E0E2F1B0E2E1E0E2F1914</span></span>
Вместо Х там должно быть 2
Если убрать во writeln лишнюю закрывающую скобку, то на экране будет выведено
n=6p=96
1.Основание
2.Естественная
3.Разновидностей
4.Искусственная