Что не относится к начертанию символов? !

var i,s: integer;

{1}begin

s: =0;

for i: =1 to 1000  do

if i mod 2=0 then s: =s+i;

end.

{2}begin

for i: =1 to 1000 do

if odd(i) then s: =s+i;

{3}a: array[1..500] of integer;

n: integer;

for i: =1 to 1000 do

if odd(i) then a[i]: =i;

n: =i;

for i: =1 to n do

s: =a[i]+s;

end.

пусть введенный интервал будет

b и c,где b< c

var a,b,c,i: longint;

begin

    read(b,c);

    for i: =b to c do

            if i mod a=0 then write(i);

end.