<span>Hand to hand combat это на английском
</span>
Число -41(10)=11010111(2)
Var s:real;
begin
write('s='); readln(s);
if s>1000 then s:=s-0.01*s;
writeln('S=',s);
end.
Пример:
s=1200
S=1020
Блок-схема - в прилагаемом файле
Сходство в том что они объёмы, а различие в том что 3D выглядит на много реалистично