4. Составить Паскаль-программу для вычисления и печати значения переменной S, равного сумме квадратов нечетных чисел от 1 до 19 включительно.

Как вариант, можно пройти по циклу с шагом 2, тогда не придется проверять нечет.

согласен с предложением

program znanija_12709446;  var  i : integer;    s : integer;begin    for i := 1 to 19 do        if (i mod 2 <> 0) then             s := s + i*i;    print(s);end.