Составьте программу, которая запрашивает имя пользователя, здоровается с ним с указанием имени и выводит на экран детскую загадку. В случае правильного ответа на экран должно выводиться соответствующее сообщение. В случае неправильного ответа программа должна вывести на экран верный ответ. Вопросы и ответы должны выводиться разным цветом шрифта. Загадайте цвет фона за текстом для вопросов и цвет экрана — Pascal(Паскаль)

uses crt;
var i,s:string;
Begin
     textbackground(2);
     clrscr;
     textcolor(0);
     writeln('Как вас зовут?');
     readln(i);
               begin
                    writeln('Здравствуйте ',i,', отгадайте загадку:');
                    writeln('Что растёт зимой и летом одним цветом?');
               end;
     readln(s);
     if (s='ёлка') then begin
                             textcolor(15);
                             writeln('Правильно! 5+');
                        end
                   else begin
                             textcolor(4);
                             writeln('Не верно, правильный ответ - ёлка.');
                        end;
     readln;
End.