Циклы с параметром.
1.Вывести на экран через пробел все целые числа от А до В включительно оканчивающиеся на 3 и кратные 3.
2. Вывести трёхзначные числа, десятичная запись которых оканчивается на 9, но не на 99. Числа искать на интервале [A, B]. Если таких чисел нет, вывести фразу «таких чисел нет». А и В вводить с клавиатуры. Например: a) А=3 В= 118 Вывод: 109 b) А=2 В=100 Вывод: «таких чисел нет»
 3. Известна масса каждого предмета, загружаемого в автомобиль. Определить общую массу груза.

А можно второе без boolean решить? Просто мы вроде еще не проходим такое

исправил

Программы 1 и 2 не будут работать для отрицательных чисел. В условии не сказано, что числа натуральные. аналогично, в программе 3 нельзя ввести нецелые значения массы груза.

//1var A, B, i: integer;begin  write('Введите A и B: '); readln(A, B);  for i := A to B do    if ((i mod 3 = 0) and (i mod 10 = 3)) then writeln(i);end.//2var  A, B, i, k: integer;begin  write('Введите A и B: '); readln(A, B);  for i := A to B do    if ((i > 99) and (i < 1000)) and ((i mod 10 = 9) and (i mod 100 <> 99)) then    begin      writeln(i);      k := k + 1;    end;    if k = 0 then writeln('Таких чисел нет.');end.//3var sum, i, n: integer;begin  write('Введите количество предметов: '); readln(n);  for i := 1 to n do  begin    readln(n);    sum := sum + n;  end;  writeln('Общая масса = ', sum);end.//3 с другим цикломvar sum, n: integer;begin  writeln('Введите 0 для завершения ввода.');  repeat    readln(n);    sum := sum + n;  until n = 0;  writeln('Общая масса = ', sum);end.