Viết ct nhập vào hai số nguyên a, b(a<b)tìm và đưa ra màn hình tất cả các số chắn chia hết cho 5 có trong [ a,b]

Mình sẽ lấy a làm biến đếm từ A đến B nếu số đó là số chẵn chia hết cho 5 thì in ra màn hình

Chương trình

program timso;

uses CRT;

var a,b: integer;

BEGIN

clrscr;

Write('Nhap a: ');Readln(a);

Write('Nhap b: ');Readln(b);

Writeln('So chan chia het cho 5 la: ');

While a <= b do

begin

if a mod 5 = 0 then

   if a mod 2 = 0 then write(a, ' ');

a:=a+1;

end;

Readln;

END.

uses crt;
var a,b,i:longint;
begin
clrscr;
    read(a,b);
    for i:=a to b do 
        if i mod 10 = 0 then write(i,' ');
readln; readln;
end.