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

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.