Перед нами старые добрые счёты, появились всего за пару тысяч лет до калькулятора.
Нормальные счёты содержат 10 косточек в линии и для удобства 5я и 6я выделяются цветом, как средние.
Судя по фотографии сумма двух товаров получилась (смотрим сверху вниз) сумма стоимости двух товаров получается: 8324
стоимость одного из товаров:2536
Находим разность: 8324-2536=5788
Сместиться в точку (2;1)
опустить перо
сместиться в точку (4;6)
сместиться в точку (6;1)
сместиться в точку (2;1)
var s1,s2:real;
begin
readln(s1,s2);
if sqrt(s1)>=2*sqrt(s2/(2*3.14)) then writeln('pomestitsya') else writeln('ne pomestitsya');
end.
<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(6, -10, 10);
a.Println;
end.
<h2>-1 -7 0 9 -5 1</h2>