Составье програму вычесления суммы всех трехзначных чисел , кратных

var i,s: integer;

begin

writeln('summa ');

for i: =100 to 999 do

if i mod 17 =0 then s: =s+i else s: =s+0;

writeln(s)

end.

program symma; var     k, i, s: integer; begin

    s: =0;         i: =1;     k: =0;     while k< =5  do         begin      if i mod 2=0 then        begin                                        s: =s+a;                                         k: =k+1;                                       end;           i: =i+1;   end;     writeln('s=',s);

end.

Для введення в форму даних, які можуть мати тільки одне з двох допустимих значень, призначені елементи управління CheckBox, або прапорці. Прапорці дозволяють користувачеві дати відповідь на поставлене запитання. У разі позитивної відповіді користувач встановлює прапорець, і він набуває вигляду квадрата, в якому розміщена галочка. При невстановленому прапорці він має вигляд порожнього квадрата, позначаючи негативну відповідь на поставлене запитання. Можливий ще один стан прапорця, при якому він не визначений. У цьому стані він має вигляд галочки на сірому тлі.