Помогите !Напишите программу в Паскаль, которая на отрезке от 10 до b находит сумму всех нечетных чисел, кратных трем. (10

2 строчка немного другая. var a,i,b:integer; s:real;

program pr1;var i,b:integer; a,s:real;beginreadln(b);for i:=1 to b-9 dobeginreadln(a);if (a mod 3 = 0) and (a mod 2 <> 0) thens:=s+a;end;writeln(s);end.