Вводится одно число делится ли последнее число на 3 программирование

number = int(input())

if number % 3 == 0:

   print('делится без остатка .')

else:

   print('не делится без остатка .')

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

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.

программа на паскале:

program xxx;

      var a, b: real;

begin

  writeln('введите количество миль');

  readln(a);

  b: = a*1.6;

  writeln('кол-во киллометров - ',b)

end.