Реализуйте программу таким образом, чтобы пользователь мог повторить игру столько раз, сколько захочет. Выведите сообщение типа Try again? и варианты ответа:
Yes ([y]) и No ([n]).

100*1000000/8=12500000 байт в секунду

пусть [a,b] - область и a< =b

var

a,b,x: real;

begin

readln(a,b,x);

if (a< =x) and (x< =b) then

writeln('принадлежит')

else

writeln('не принадлежит');

end.

6, понедельник, иа, 1, на печи,клюв, царь, марка, гласных 10, согласных 21, всего 33