1) Программа вывода на экран всех нечетных двузначных чисел на языке Pascal:

program OddNumbers;

var
i: integer;

begin
for i := 11 to 99 do
begin
if i mod 2 <> 0 then
writeln(i);
end;
end.

2) Программа вычисления суммы всех трехзначных чисел, кратных 5 на языке Pascal:

program SumOfMultiplesOfFive;

var
i, sum: integer;

begin
sum := 0;
for i := 100 to 999 do
begin
if i mod 5 = 0 then
sum := sum + i;
end;
writeln('Сумма всех трехзначных чисел, кратных 5, равна: ', sum);
end.