Я хз честно
Пошаговое объяснение:
Я хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честно
Во-первых, её можно упростить. Во-вторых, ты в одном месте не поставил ;. Напишу примерный вид программы, которая должна работать:
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.
Должно сработать))