Program pokypka;
var s,os,v1,v2,v3:integer;
begin
writeln('Введите имеющуюся сумму');
readln(s);
writeln('Введите цену первой вещи');
readln(v1);
writeln('Введите цену второй вещи ');
readln(v2);
writeln('Введите цену третьей вещи');
readln(v3);
os:=s-v1-v2-v3;
writeln('Остаток денег=',os)
end.
Держи в константе количество элементов прогрессии.
1)Нерааенство модет иметь истину или ложь
2) если a < b тогда min = a иначе min = b
2. если c < min тогда min = c
3) в вложении