Діагональним перерізом правильної чотирикутної призми е прямокутник, площа якого дорівнює 120. Периметр основи призми: дорівнюе 15√6. Визначте висоту призми.​

Елефонные справочники 1. - адреса и телефоны в москве, с-петербурге, уфе, екатеринбурге, новосибирске, минске , канаде, здесь вы можете по номеру телефона определить адрес, а также фамилию человека или название организации, и наоборот по фамилии, названию фирмы или адресу - найти номер телефона. поисковые формы. всего 173 города, страны, 200 поисковых серверов. 2. - телефонный справочник "алло, москва для вас! " 3. [ссылка заблокирована по решению администрации проекта] - база данных по телефонам городов москвы, московская обл. , санкт-петербурга, кемерово, уфы, казани, алушта, алания, астрахань, бердск, екатеринбург, електросталь, элиста, калуга, карасюк, краснодар, куйбышев, магнитогорск, новотроицк, орск, новокузнецк, воронеж и область, амурск, великие луки, калуга, ступино, тула, ухта, барнаул, омск, новосибирск, новороссийск, волгоград, владимир, нижний новгород, томск, тамбов, киев, орел, тюмень, владикавказ, саянск, северодвинск, смоленск, ярославль, караганда, туринск, нижневартовск 4. - здесь можно найти потерявшихся родственников и друзей 5. - телефонная база содержит сведения обо всех жителях московских квартир, в которых установлен телефон. как это понимать? если набрать в поле телефон, интересующий вас номер - вы увидите всех тех, кто живет в этой квартире. причем по многим из них еще и дату рождения. в справочнике 11.000.000 записей. 6. - справка в сети 7. - большая телефонная книга – справочник, содержащий адреса и телефоны организаций москвы и московской области. также на сайте: карта москвы и московской области, карта метро москвы и санкт-петербурга, карты более 100 городов россии, почтовые индексы москвы и россии, телефонные коды стран и городов 8. - базы данных • mocковский адресно-телефонный справочник (3479232 записи) • bopонежский адресно-телефонный справочник (161859 записей) 9. 10. - поиск по фамилии, поиск телефона, поиск адреса, найти адрес, найти человека. 11. - сотовые 1 нравится10

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

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.

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