Найти сумму квадратов нечетных чисел в диапазоне от а и в cделать в delphi

дельфи - тот же паскаль в принципе вот тебе кусок кода вычисляющего исходное

его запихнешь в какой-нибудь button1.click() 

 

в edit1 и   edit2   вводятся а и b 

 

 

 

 

  var a,b,i: longint;  

 

s: =0;  

a: =strtoint(edit1.text);

b: = strtoint(edit2.text);  

 

 

for   i: =a to b do

      if   (a mod 2)< > 0 then s: =s+sqr(i);  

 

 

  showmessage(strtoint(s));

 

 

для н=100 по 999 цикл

                                                            стр = формат(н, "чрг=; чг=");

                                                            ч1 = лев(стр,1);

                                                            ч2 = сред(стр,2,1);

                                                            ч3 = сред(стр,3,1);

                                                            если не (ч1 = ч2 или ч1 = ч3 или ч2 = ч3) тогда

                                                                                            сообщить(н);

                                                            конецесли;

                                                           

                              конеццикла;

1.  var   n, i: integer;   a, sum, mul: real; begin   sum : = 0;   mul : = 1;   readln(n);   for i : = 1 to n do   begin     readln(a);     sum : = sum + a;     mul : = mul * a;   end;   writeln('сумма = ', sum);   writeln('произведение = ', mul) end. 2.var   k, less: integer;   a: real; begin   less : = 0;   readln(k);   readln(a);   while a < > 0 do   begin     if a < k then       inc(less);     readln(a);   end;   writeln(less) end.