Придумайте задачу модель решения которой может быть представлена следующей блок схемой

program z1; var s,p,d:real; begin s:=15; p:=3; while p*s>=0 do s:=s-2; d:=s+p; writeln (d); end.