Дано: writeln (s:6:2);если s=112, 79682, то на экране появиться

В результате экономического развития в пореформенный период (особенно промышленного подъема 90-х годов XIX в. , завершился к 1880-1890 гг. ) окончательно сложилась система российского капитализма. Это выражалось в росте предпринимательства и капиталов, совершенствовании производства, его технологическом перевооружении, увеличении количества наемной рабочей силы во всех сферах народного хозяйства. Одновременно с другими капиталистическими странами в России происходила вторая техническая революция (ускорение производства средств производства, широкое использование электричества и других достижений современной науки) , совпавшая с индустриализацией. Из отсталой аграрной страны Россия к началу XX в. стала аграрно-индустриальной державой (82 % занято в сельском хозяйстве) . По объему промышленной продукции она вошла в пятерку крупнейших государств (Англия, Франция, США и Германия) и все глубже втягивалась в мировую систему хозяйства. 

Я не знаком особо с паскалем, но могу направить на путь истинный :b
Кароче..
Подсчет количества:
если билет счастливый count++;
(все логично)
Но как определить счастливый ли билет:
Припустим у нас номер билета лежит в массиве: ticket, то
if ((strval(ticket[0]) + strval(ticket[1] + strval(ticket[2])) == (strval(ticket[3]) + strval(ticket[4]) + strval(ticket[5])))
count++;

strval - преобразовнаие из строки в число. string --> integer
Если синтаксис знаешь, то напишешь прогу, если нет.. то жди ответа других.