напишите задачу на языке паскаль.
бедный и богатый заключили спор. Богач отдает каждый день 100 рублей в течение месяца .Бедный отдает в первый день копейку каждый следующий день в 2 раза больше . в течение месяца ,кто победит спор?

var a,b:real;i,d:integer;begina:=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.