Встановить 8. Створіть обробник події Click для кнопки, виконання якого
червоний колір фону поля, відступ поля від верхньої межі вікна 150 пікселів,
зменшить відступ поля від лівої межі вікна на 50 пікселів, установить колір
тексту червоний і виведе в поле текст «Ми використовуємо властивості поля!».​

Uses crt;  {модуль CRT, для красоты}
var x,y:integer;  {описание переменных}
begin
write('Введи трехзначное число:'); {вывод текста на экран}
readln(x); {Чтение данных}
write('Введи любую цифру:'); {Вывод текста на экран}
readln(y);  { Чтение данных }
if (x<100) or (x>999) or (y<0) or (y>9)  {проверка условий}   
then writeln('ERROR!')  {Вывод текста, если условие соблюдено}
else  {Вариант, если в начале все числа введено верно}
    if (y=x div 100) or (y=x mod 10) or (y=x mod 100 div 10) then
       writeln ('Цифра присутствует') {Вывод текста, если условие соблюдено}
    else writeln ('Такой цифры нет');  { Вывод текста, если условие не соблюдено }
end.

Осенью я  ехала на дачу с семьёй отдыхать.  И тут вижу  кто-то рвёт все листья  из  деревьев , этот человек был в чёрном плаще и  в остроконечной  шляпе. Я  сказала  папе давай остановимся  тут, не  будем ехать на  дачу . И  папа ответил хорошо, давайте  остановимся  тут. Мы  остановились  не  далеко от  того места где  я видела этого человека . И я  сказала маме что хочу не много прогуляться и  мама сказала иди только  не далеко и я пошла в то место где  я видела этого человека ,  не  сказав  об  этом ни кому . Я  пошла  туда и увидела этого человека. Он куда то шёл и  я пошла  за  ним .   Вдруг вижу что этот человек хочет зайти в замок который шёл. Я была очень удивлена  этим замком и чуть не  ахнула от  страха  он  был весь чёрный и высокий, наверное этажей сто. И на  нём  везде были нарисованы  черепа .   Этот человек зашёл в  замок и я за  ним. Изнутри   замок   был  ещё хуже и страшнее чем снаружи . Там было полно летучих мышей и  ходящих скелетов . Хорошо  что я успела спрятаться   за  статуями иначе все.  Статуи тоже  двигались и  шатались . Одно статуе зарычало  на  меня и я убежала дальше.  Вхожу и вижу лабораторию   ведьмы. Оказывается  что  это не человек а ведьма. Я зашла туда и спряталась за  шкафом .   И вижу  тут ведьма кладёт в какой то  котел  листья  которые она рвала. . Она  сказала круцыо и вышла . Я  подошла   увидела  книгу заклинаний. Вдруг  пришла   ведьма и сказала на  меня заклинание бомба  макси я  успела  убежать .  Я  успела прочитать  заклинании из книги . Я притворилась  перед  ведьмой как будто я  тоже  злая .  И  она  поверила  мне .  В  руках  у неё  была  волшебная палочка . Она положила в  сторонку палочку . Потом  она  открыла шкаф . Там  были коробки волшебных  палочек . Она  попросила меня взять палочку и я взяла одну  палочку. Она  не  выбрала меня, я  взяла вторую тоже нет , я взяла  третью она  выбрала меня . Потом я  произнесла  заклинание редукто она убежала . Потом она сказала заклинание круцыо и я у бежала .  Потом  я произнесла заклинание Авадакидавра и  ведьма умерла. Вижу замок  начал падать и я убежала из замка. Снаружи осень уже стала ещё  красивее и лучше чем раньше. Я  вернулась к семье и они на меня толпой: где я была?   И тогда я  сказала сесть им на скамейку и я  начала рассказывать им  подробно о  своих приключениях.