Menampilkan Bilangan Genap pada Pascal

Berikut adalah syntax untuk menampilkan bilangan genap dari A sampai B...

uses wincrt;
var a,b,c,i : integer;
begin
writeln ('MENAMPILKAN BILANGAN GENAP DARI A SAMPAI B');
write ('Masukan A : ');
readln (a);
write ('Masukan Nilai B :');
readln (b);
clrscr;
writeln ('Bilangan genapnya SBB:');
for i := b downto a do
begin
     if (b mod 2 = 0) then
     begin
          c := b;
          write (c);
     end;
     b := b-1;
end;
end.

Selamat belajar !! ^_^