Найти область определения функции F(x)= (Abs(x-2)-2x)^(1/2)+x/(5x-x^2+14)^(1/2)

Во все времена люди хотели знать, откуда и каким образом произо-шел мир…  в одном из выступлений а. эйнштейн сказал (в 1929 г.): «если говорить честно, мы хотим не только узнать, как устроена, . но и по возможности достичь цели утопической и дерзкой на вид - понять, почему природа является именно такой. в этом состоит прометеевский элемент научного творчества». вселенную в целом изучает наука, называемая космологией, т. е. наукой о космосе. хотя сейчас космосом называют всё, находящееся за пределами атмосферы земли, доступное человеческому наблюдению, не так было в древней греции. космос тогда принимался как «порядок», «гармония», в противоположность «хаосу» — «беспорядку». таким образом, космология, в основе своей, как и подобает науке, открывает нашего мира и нацелена на поиск законов его функционирования.  эйнштейн позже сказал: «космическая константа была величайшей ошибкой моей жизни». это произошло после наблюдений отдаленных галактик э.хабблом в 1920 году и показало, что вселенная не статическая, как прежде было принято думать: она расширяется. расстояние между галактиками возрастает со временем. изучение вселенной, даже только известной её части, является грандиозной . чтобы получить те сведения, которыми располагают современные ученые, понадобились труды множества поколений.  наши дни с полным основанием называют золотым веком - замечательные и чаще всего неожиданные открытия в мире звезд следуют сейчас одно за другим. вселенная бесконечна во времени и пространстве. каждая частичка вселенной имеет свое начало и конец, как во времени, так и в пространстве, но вся вселенная бесконечна и вечна так, как она является вечно самодвижущейся материей. открытие многообразных процессов эволюции в различных системах и телах, составляющих вселенную, позволило изучить закономерности космической эволюции на основе наблюдательных данных и теоретических расчетов. из всех вышеперечисленных доказательств можно с уверенностью сделать вывод: вселенная эволюционирует, бурные процессы происходили в прошлом, происходят сейчас и будут происходить в будущем.

Я так понимаю, ты пишешь программу, которая говорит, сколько тебе лет))
Во-первых, её можно упростить. Во-вторых, ты в одном месте не поставил ;. Напишу примерный вид программы, которая должна работать:

Program Vozrast;
var i: integer;
begin
writln ('Введите возраст: ');
readln(i);
if (i < 1) or (i > 150) then
  writeln ('Это туфта, насяльника!');
if (i <> 11) and (i mod 10 = 1) then
  writeln (i, 'год');
if ((i<10) or (i>20)) and ((i mod 10 = 2) or (i mod 10 = 3) or (i mod 10 = 4) then
 writeln (i, 'года');
if ((i  > 9) and (i < 21)) or ((i mod 10 = 5) or (i mod 10 = 6) or (i mod 10 = 7) or (i mod 10 = 8) or (i mod 10 = 9) or (i mod 10 = 0)) then
  Writeln (i, 'лет');
end.

Должно сработать))