Встановіть відповідність між початковими значеннями змінної х (1-4) і значеннями змінної у після виконання оператора. If x<0 Then y:= xElse If x <= 5 Then y := sqr(x) Else y := 2*x; *х=10, х=10;x=5, х=3;х= -10;y=20;y=25;y=9;у= -10 Визначте, якого значення набуває змінна z після виконання фрагмента програми. var x, y, z: Integer; begin x:= 5; у = 10; If x < OThen If x> уThen z:= x Else z:= y Else ifх<y Then z:= x Else z:= y; ​

В результате экономического развития в пореформенный период (особенно промышленного подъема 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
Если синтаксис знаешь, то напишешь прогу, если нет.. то жди ответа других.