Обчислити!
8т216кг×20=
895т500кг÷500кг=​

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

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.

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

Число делится на 3 без остатка, если сумма составляющих это число делится на три без остатка . Например 18 ( 1+8=9  9:3=3)
Число делится на 3 без остатка, если сумма составляющих это число делится на три без остатка . Например 18 ( 1+8=9  9:9=1) Итого 18 1+8=9 9:3=3  9:9=1 делится на 3 и 940  4+0=4  не делится 60  6+0=6  6:3=2   делится на 372  7+2=9  9:3=3 9:9=1  делится на 3 и 999  9+9=18  18:3=6  18:9=2  делится на 3 и 9106 1+0+6=7  не делится 156  1+5+6=12 12:3=4 делится
996 9+9+6=24  24:3=8  делится на 31000    1+0+0+0=1  не делится