Var c1,c2,c3,s:integer; ну или другой тип, если не целые числа
begin
writeln("Введите цену 1го товара "); readln(c1);
writeln("Введите цену 2го товара "); readln(c2);
writeln("Введите цену 3го товара "); readln(c3);
writeln("Введите сумму"); readln(s);
if (c1+c2+c3<=s) then writeln("Денег хватает") else writeln ("Денег не хватает");
end.
Для начала представим 65712 в двоичной системе: 65712 = 65536 + 128 + 32 + 16 = 1 00000000 10110000₂; Значит, ответ - 3 байта.
<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
ReadSeqInteger(ReadlnInteger).Reverse.Println
end.