Не уверен что правильно, так как не понял что требуют.
program chisla;var a,b,c,d,e,f,i,r: integer;beginwrite(Введите первое число:);readln(a);write(Введите второе число:);readln(b);write(Введите третье число:);readln(c);writeln(Сумма трех чисел:,(a+b+c));write(Стоимость перчаток:);read(e);write(Стоимость портфеля:);read(f);write(Стоимость галстука:);read(i);r:=(a+b+c)-(e+f+i);writeln(Кол-во денег оставшиеся после покупки:,r);end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.