Найдите объем фигуры изображенной на рисунке.
Измерения приведены в сантиметрах.

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

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.

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

Я хз честно

Пошаговое объяснение:

Я хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честноЯ хз честно