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.
Верхний: ctrl shift +
нижний: ctrl +
Сходство в том что они объёмы, а различие в том что 3D выглядит на много реалистично
Ну учиться Пользоваться компьютером
............................................