Тебе из будет трудно искать на рабочем столе или в память компьютера, также они будут длинные и название будет показываться не полностью
1000, 2000, 3000, 4000, 5000, ...
var x,a,b,sum:integer;
begin
writeln ('Введите стоимость перчатки');
readln (x);
writeln ('Введите стоимость сумки');
readln (a);
writeln ('Введите стоимость ремня');
readln (b);
sum:=a+b+x;
if (sum>800) then writeln (sum-(sum/100*10));
if (sum<800) then writeln (sum);
end.
ИСПОЛЬЗУЕМЫЕ ФУНКЦИИ ДЛЯ ВЕСА MAX, для роста счет - общее количество уч-ся и счетесли для выборки по условию, округление до 2х знаков