на паскале дано а оканчивается ли оно на 7 через мод напишите решение

var a,b,c,d,f,e,n:longint; k:real;begink:=0;for n:=000001 to 999999 do begin a:= n mod 10;b:= n div 10 mod 10;c:= n div 100 mod 10;d:= n div 1000 mod 10;f:= n div 10000 mod 10;e:= n div 100000 mod 10;if(a+b+c=d+f+e) then begin writeln(n);k:=k+1;end;end;end.
покупатель должен заплатить в кассу S рублей . У него есть купюры в 1,2,5,10,50,100,500 руб. Найти наименьшее кол-во , которым он может рассчитаться? Помогите пожалуйста!

А) видеокарта Б) звуковая карта
В) процессор Г) винчестер

большое кол-во баллов

1492 г. Создание самого первого компьютера
1961 г. Создание первого отечественного компьютера
1957 г. Открытие радиосвязи
1946 г. Первый полет человека в космос
1951 г. Принятие христианства на Руси
988 г. Первое упоминание в летописи о Москве
1895 г. Начало Великой Отечественной войны
1941 г. Запуск первого искусственного спутника Земли
1147 г. Открытие Колумбом Америки

программу на Паскале, в которой вычисляются четыре величины: средние температуры зимних месяцев, весенних месяцев, летних и осенних. 2)Вы посетили магазин и купили 10 видов товара. В таблицу T [1..10] записали количество купленного товара каждого вида. В таблицу C [1..10] записали цену единицы каждого вида товара соответственно. Составить программу на Паскале вычисления общей стоимости всех покупок.

ПОЖАЛУЙСТА,ХОТЯ БЫ НА ПАСКАЛЕ СОСТАВЬТЕ!

(на паскале).