экзамен

program pov;
uses crt;
var x,k, s: integer;
begin
clrscr;
for x:=1 to 100 do if (x mod 3=0) and (x div 6 <>0)  then

writeln (x);
 s:=s+x;

 writeln ('s=',s);
readkey;
 end.